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This  thesis  describes  the  design*  i mo  1 emen t at i on  and  user 
interface  for  an  Instructional  SoftMare  Information  System 
(ISIS).  The  existing  volume  and  increasing  rate  of  growth 
of  computer  software  production  suggests  the  need  for  a 
catalogue  procedure  to  help  programmers  find  existing 


i 


Software  to  reduce  redundant  programming. 

The  Purpose  of  the  ISIS  is  to  provide  an  online 
Software  catalogue  which  does  not  reguire  either  prior 
instruction  or  familaritv  with  keyword  lexicons.  Using 
ISIS#  a user  may  record  the  characteristics  of  new 
software#  and  make  searches  for  existing  software  by 
specifying  its  characteristics.  Characteristics  are 
Specified  by  selection  from  a succession  of  menus, 
ISIS  is  implemented  on  a POP-Il  computer  operating 
under  the  UNIX  operating  system  using  the  INGRES  data 
base  management  system.  It  is  written  in  the  QUEL  query 
language  embedded  in  the  programming  language  C. 
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ifii  x'ooi'C  T h'ini 


A.  t M >?Ol'OC  I 1 )•'  IhK  ^>WCU>Lt'■' 

lO'lav  in  fhe  cO"'i'ut**'“  is  an  enormous  amount 

software#  written  nn  r.inv  liMerent  surjects.  Sometimes 
It  is  feasil''e  to  xlont  a oroqram  on  nan.i  to  a Given 

problem;  sometimes  it  is  not.  t.ven  when  new  software  must 
be  creiteri,  th»'  job  can  otten  be  made  easier  if  advantaqe 
IS  taken  of  e»istim  software  toots  or  of  example  oroorams 
oerformino  analaious  functions. 

th<;  oxistina  volume  ann  increasino  cirowth  rate  of 

computer  soff..are  vdemands  effective#  easv  to  use  catalogue 
b r oc  ent.1  r e s . .hen  a prnarammer  is  tasked  to  write  a new 
oroqram#  re  snoul.d  be  at' I e to  beqio  bv  verifvina  that 
software  oertonmion  the  in.licated  tasks  does  not  already 
exist. 

^'any  computer  firms  sut't'lv  oo  line  or  off  line 

C at  a I o-du'*'’!  sut'routine  libraries.  lUit  these  library 

catalooues  are  riot  oeneral#  they  are  c-^taloaues  on  specific 
Subjects.  A aeneril  s 1 1 -enc omr a s s i no  catatooue  is  desired# 
and  It  snooli  be  one  which  can  be  conveniently  extended  to 
include  new  software  written  nr  acduired  locally. 
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: I I 

C . h'lt.S  I l-tl  I 1 ( ’..>5 

>Soliit»or>3tr«t''eorcM«»r-rjnt,tiit»i«otf'rTis;ar>ott)«ne 
catalC'iijf*#  ''r  vin  f .« » a I . A*ter  prf»nrtraf  i » art 

1 

! otMtri^  IS  't.ir'  f'>  uonat**.  An  on)tn»  catj^oque  is'  ! 

«»asv  to  use  arxi  n-  < i n f >in,  Put  t^rnin.^l  sccess  IS  re<5uirec1.  j 

1 

Iri  ,in  eiiiiCvittorti'  environ "enr  t*'is  arnrn.^cfi  IS  especially  ' 


a p o e a 1 1 n q ; it 

enroll  r aoes  t 

he  student 

s to 

use  software  tools 

and  lives  thern 

♦ he 

read  v 

access 

t o 

» proad  ranqe  of 

software  wt,ic‘' 

they 

w o u 1 q 

I'therwise 

have 

only  after  qaininq 

cons  I vi»*r.»p  t e pro<ira'»-’r  1 no  e xpp  r i ertc  e . Learnino  to  take 
advnntaoe  of  Software  tools  is  ^ost  itrooptaot  tor  computer 
science  Stuvients,  est'ecisllv  lurina  the  Ijter  quarters  ot 
the  curric'ilu"'. 


II.  Af'^^kliaCH  TAKtU 


A.  )A;,  if  iMIIAL  Sr’rC  if  ICAI  ions 

A f t f>  r fn*?  ft*>c»sinns  use  onHr>f»  catdIoQue  was 

fraiie»  t <*  f n 1 1 r>«  I luj'^s  F i 0''S  nee(it*ri  to  a.1rirf»ssed  : 

a.  '•►'at  ♦unctions  ""ust  rhe  syst***  oerfonn  ? 

F.  t'Ow  sFouIo  trip  svsten  com>runicate  with  the  user  ? 

» 

Tnu  answpi's  to  tops"  questions  are  realty  basic 
functional  soecifiCrttinns; 

Ttio  systeir  has  to  search  svste'”  resident  listings 
accoruino  to  user  co^’ranns.  The  user  has  to  be  able  to  add 


ne  w 

list 

1 nos 

ann  a 1 

Iso  to 

be  a p 1 e to 

C h anqe 

h t s 

1 t s t i nqs . 

I he 

sy  St 

e m,  has 

to  he 

v“rv  easy 

t n use : 

the 

user 

shou 1 d 

^ V f' 

no 

t r 

nut'  1 e 

even 

the  first 

time 

h e 

uses 

It.  The 

arc' roach  rayen  to  acco'i'clish  this  was  to  make  the  system 
entirely  self  rro<-f.tinn.  No  command  vocabulary  is  used* 
in  steal'#  t^e  system  as<s  questions  anq  orovides#  with  each 
i.iuestion#  a complete  menu  Of  responses.  Ihis  Philosophy  is 
incompatat'le  with  the  keyword  approach  which  is  a common 
feature  of  automatic  catalooinq  systems. 
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t t t s f'Oipf  tnp  Tuest'on  ot  ►low  to  desiqn  the 
structure  o*  'he  d>t-^  represention  the  listings  was 
-«jaressei,  I^e  cniracteristics  ot  i-nrortance  are: 

(1).  tasv  user  uniierstenoirititv,  or  else  usability 
witt'Out  uru  le  r s t a p d i no  . 

l?J.  The  atilitv  tc  ciuici«lv  identify  listings  whose 
Characteristics  inclu'le  those  so ec'f'ed  by  the  user, 
l>).  ^easonabl*'  stcraoe  nensitv. 

listiPd  Icosur  wi«  e<r>ected  to  occur  much  more 
♦reauently  than  the  creation  of  new  listings  or  the 
modification  of  old  onesJ  consenuently  the  raoidity  and 
comolenitv  of  listing  structure  uodating  was  not  considered 
tc  be  an  ircortant  criterion  for  data  structure  choice. 

The  t(-,|  lowing  alte~ratives  wehe  considened: 

1.  Tree  type  structure 


In  a tree  form  software  dirertnpy,  the  leaves  would  be 
individual  listinas#  and  the  nodes  would  each  be  a common 
ancestor  o'  all  listims  with  a common  characteristic. 

(jne  t 1 nos  list'Hf^s  bv  Starring  at  the  root  and  making 
Choices  at  each  node#  until  reaching  the  listings  desired, 
Advantaoe; 

The  mechanism  is  easv  to  understand. 


i>i  s-iovant  -Tcies  ' 


(1)  (>ser  is  ^orc^a  answer  t>ie  Questions  in  a 
particular  order. 

< e: ) Pointer  iTinlenentation  is  troublesome. 

«?.  Table  type  structure 


line  table  with  two  oimensions  is  created*  rows  would 
correspono  to  program  listings;  columns  to  characteristics. 
!ahen  a listing  has  a given  c t>  a r ac  t e r i s t i c * a mark  is  olaced 
in  the  appropriate  cell  in  the  table. 

Advan  t ages : 

(IJ  Easy  for  user  to  comprehend. 

(2)  User  can  specify  characteristics  in  any  order. 

[’  i sadvan  t aae  s ; 

11)  A large  volume  of  storage  is  required. 

(2J  A variable  oimension  table  is  required 

because  both  listings  and  characteristics 
ray  be  adOec  as  the  database  grows. 

(5)  Program  purpose  classification  appears 

to  be  most  conveniently  organized  as  a tree. 

(M)  User  neons  to  Know  the  characteristic 
vocabulary  in  advance. 


»t  c rti 't' rc'’  ' ‘i «'  t ^ I"  ^nii  ar'o  r o^ic  s 

w.^n  iri  fr,f‘  tr)rr-  r*  .t  hyhri-l  struct  ur»»,  Herp  rhp  user 

•ras  rMrtwre  ^ t 1 e ot  t p for^"  e » o 1 i ne<l  i^t'ove#  anrl  he  mav 
tt'»n«  rf  the  «:p.<pcr  rrnress  one  of  choosing  blocks  of 

colli P' ns  t(i  pnir  oo';  columns  to  save»  successively  refining 
the  ctioicps»  until  ftie  listings  are  narrowed  down  to  a 
ST-a'l  niiKier  sjtisfyinn  the  characteristics  he  needs.  The 
selection  (If  ch,irarteristic  coluirns  is  organized  in  a tree# 
though  the  user  need  not  t'e  aware  of  this.  His  first  choice 
- the  tirst  level  ot  the  tree  “ is  thisi  fron  airong  all  of 
the  iniet'enoeot  r.-itenories  of  software  classifications  he 
chooses  those  troe  arrong  whose  sut'livisions  he  wishes  tO 
ohoose.  tor  exaorle  a user  whose  goal  is  to  find  a sort  for 
the  IttM  sp(1  will  look  over  the  first  menu#  containing 
"language",  " h ,j  r .1  w a r e " , . . . an>1  will  soecify  hardware  for 
further  clarification#  ino  may  ignore  language  if  any 
languaie  will  go.  Ihe  suogivisioos  of  each  of  the  chosen 
maior  suOnivisions  nt  each  of  the  chosen  categories  are 
presented  for  review  - then  the  minor  sutniivisions  ” and  so 
forth,  anil  the  user  mav  refine  his  choice  along  any 
direction  as  long  as  he  wishes  until  further  subdivisions 


1 P 


are  e « h a u s t e o 


The  rf'vstral 


♦ oriTi  chospn  for  fhis  structure  was  a tree 


y,hpre  eac*^  node  contains  a •’at'le  of  names  of  its 
SuOorfnnatn  none  tables  ann  names  of  software  listings 
which  have  the  characteristics  of  that  node  but  are  too 
general  to  be  lisferi  among  the  node's  subordinate  nodes, 
(fjotice  tnat  a given  listing  will  tyoicallv  be  referenced 
in  several  tl  liferent  parts  of  the  characteristics  freer 
most  lifelv  once  under  each  major  subcategory  of  the  root.) 

The  relational  database  model  offered  an  easy  mechanism 
for  maintenance  of  these  node  tables. 

At  this  Point  it  was  decided  to  use  the  INUWES  database 
management  system  available  on  the  NPS  comouter  laboratory 
POP-11  computer  under  the  UK'Tx  operating  svstem. 


C.  LAfioUrtf.t  SF.LtCriON 

Ihe  system  programs  are  written  in  (JDEL  (the  INGRES 
ouerv  language)  embeddeo  in  the  programming  language  C. 
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CL  fioS  I f J r A r 1 'Ui  Jj  C M A A >*  (■ 


A pl.ius)hlp*  intuitiv-  software  classification  was 
sounht  hut  no  existino  sv<!te'»>  sPO"'eo  to  he  entirely 
suitat'leJ  ooreowt'r*  tooy  oiffpred  wi'^lely  sunoestinq  tt>at 
C 1 a S 5 i t i r a t I on  noorlness  -^ay  he  in  so'ne  deqree  relative  to 
the  environrent  is  wnich  the  catalooue  is  to  eirployeed.  So 
it  was  oecioed  to  irnoleoent  a variable  type  of 
classitjratjon  i^hicti  each  user  aoency  can  configure  as  it 
sees  fit. 

here  is  an  example  classification; 

I-  Corputer  software  tools 
Doe  ration  system 
Cotrp  i 1 e r 
L anou  aoe 
lime  sh  a r i no 
(•'  i c roproorammi  no 
Lehuon i no  a i os 

<?-  Lata  manicMjlatinq  toolst 
lext  eaitino 
Sort 
yf  roe 
L’  a t a ti  a s e 

Test  data  generators 

Data  structures  like  stack#  queue  etc. 


/'’'afheTaf  irs 


^'a  t ^ . ♦ unr  t » ons 

rot'at  i 1 1 ♦ V 
Li  r>  e r •»  t i o ri  s r •?  s e a r c f> 

nuslnrss  applications 
t.  nf)  1 n an  r i ncj 
h i nanc i a 1 


I nvantopy 


('esiu''  PtAiuf^ts 


III. 


IS  )mnlpri»»nfpT  ris  JVli-^f-S  claf.shase.  A tre»» 

structure  is  sir'll  later)  uSirn  relations.  A small 

rlemonstration  1atar>ase  is  5no-.n  in  finure  1. 

flu?  root  too  tr“e  is  tor  "rraintahle"  relation  which 

IS  loaoej  at  system  installation  time  and  can  not  t’e 

chtinoeo  tv  the  user.  Mvintaole  tuoles  show  the  main 
branches  c f the  tree;  these  are  the  independent  cateqories 
ot  software  Characteristics#  like  lamuaqe  and  hardware, 
tvery  node  of  the  tree  is  a relfition  with  two  fields# 
ridfrecorn  lb)  and  cm  a me  (class  record  name).  Rid  is  used 
as  a Wev  to  all  actions.  It  a rid  is  etvua  I to  zero#  it 
means  there  is  a relation  with  that  njme  which  further 

sut'divides  the  current  relation.  If  a rid  is  qreater  than 

^ero»  It  means  cm  a me  ■ is  the  recnrd  name  itself.  One 
listin^l  may  fano  visually  will)  be  found  recorded  in  more 
than  one  branch  (relation).  There  is  no  information  about 
the  listinos  on  the  tree  relations#  only  rirls  are  Shown, 
All  other  information  about  a specific  liitinq  can  be  found 
in  the  record  file  am  whr  (where)  relations#  which  are  in 
the  ea  ample  shown  in  ficure  , 
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Figure  1.  ISIS  demonstration  database  "Islsl' 


recorrj^t'e  relation 
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Afjn  TKSTIfMi;  phases 


iMe  JSIS  ‘ivsi’O'T  ‘■Jesinned  in  a top  down  manner. 

Kirs»  the  main  frane  thr  svstnm  was  aesianerJ.  coded  ana 
tn«?teci.  Then  tne  primary  ♦ unction  of  the  system,  the  search 
ornora-^,  «.as  nesioneo,  coded  and  tested.  As  the  search 


proaram  hecomes  laroe,  some  problems  Peaan  to  surface.  The 
C compiler  hecjin  to  print  errors  about  undeclared  variables 
which  «ere  in  tart  declared.  At  this  ooint  the  output  of 
tiJUEL  precompiler  g^as  checked  and  it  was  seen  that  similar 
statements  in  different  Parts  of  the  source  code  were 
translatep  into  C as  different  codes.  When  the  source  was 
divided  into  smaller  files,  the  tOUhL  orecomoiler  seemed  to 
wo  r k correctly. 

After  compilation  was  accomplished  the  testing  began  to 
take  much  mgre  time  than  anticipated.  The  author  was 
unprepared  for  the  deHOerateness  with  which  INGRES 
f u n c t i o n e d . 


Ah  en 

run  r 1 

ime  error  mossaoes  surfaced,  it 

was 

difficult 

t n 

f 1 nd 

nut 

what  exactly  was  wronq  because 

t wO 

comoi 1 ers 

t n e 

1 S 

system  were  all  involved. 

-JO 


I 


tu''tL  nof  ii«clararion  of  int^aer  arrays.  For 


t^is  rt?ason  r^e  tf^rf^-ior  arrjy  uSft  as  input  butter  was 

ieclar>»ii  ^ C va''ia'')»*  an-i  t^en,  wr*»n  required*  each 

value  «as  taxen  on.»  pv  one  tro^  the  C.  arrav  into  an  tQUEL 
variap1“  tor  use. 

Ihe  s**«rcn  pro  a ran  is  co'i’oosen  ot  aonroyimately  1000 
lines.  It  nay  cause  interactive  problems  it  run 
concurrently  with  aod*  nelete  and  mooity  programs.  The 
Searrn  routine  is  the  wev  component  ot  [SIS.  It  is  possible 
to  operate  a reluce-l  [STS  l;v  running  just  the  search 
tijnctinn,  mainr.ainino  the  database  (adds*  moditications 
and  deletions)  t'v  usina  tne  Ifjni^FS  query  language  dUEL. 


I 
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V. 


4 . S 1 1 C 4-u  1.  I I U S 

1*1^*  SvStt*’"  nis  fr'**  tn|lo<<in(i  C>10JbiHti»s; 

,Soirc'>: 

systP''  s »' <1  »'C  " •?  ♦or  listings  according  to 

user  specified  gu a M ♦ i c a t i on s . I he  user  can  choose  up  to  ?S 
gualificitions  for  a given  search. 

0 . 4dii: 

Any  user  c »n  a iil  a listing;  there  is  no  need  to  get 
"add"  perm»<;s»on  fm-n  the  ISIS  Tianjger,  The  principle 
restriction  tor  aiiition  is  that  the  depth  of  the  tree  can 
ne  a Tiaainj-^  ot  aroun  i t?0  arcs,  lahen  a listing  is  created# 
the  listinj  "own*»r"  assigns  a one  letter  Password. 

c . ’lod  1 f y : 

Ine  Owner  gt  a listing  can  'nodify  either  t he  1 i s t i n g 
description  ani/nr  the  "wher“  found"  inforTation. 

1 . delete: 

Ine  Owner  ot  a listing  can  delete  his  listing. 

Currently  the  ISIS  svste'i'  can  has  a maxinrum  of  i27b7 
listinas  f'ecause  listings  ar«  assigned  2 bytes  unigue  10 
nuinpers.  My  chaming  all  "ril"  attriputes  to  i4  in  relation 
declarations#  the  system  could  hold  uo  to  2 # 1 7 4 # 48 5 , o4 7 
1 i s t inns. 

hurther  information  may  ne  found  in  the  user's  manual. 


I 

I : 

I 
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•^Ku^LFmS  ..'ITh  rt't  SYSTEM 


i.'n  I y on<»  us*»r  sni^uln  use  se^i'C’i  oroqTaf"  or  add# 

an-i  mn'iif  / oroirim  at  a qiv<»n  If  more  than  one 

user  IS  ustnq  one  o^  tnese»  ISIS  mav  not  work  correctly 
necause  some  temoorary  ISIS  information  is  stored  in  shared 
I q k t S r e I a f i o n s . 

System  rest'onse  is  very  slow  even  when  the  listino 
database  is  miniscule.  Tnis  is  aooarentlv  a characteristic 
of  the  I'n'. '^tS  system. 

It  is  imnosiole  to  orint  a hard  coov  of  the  system 
listings  in  cataloque  form  at  oresent . Each  branch  point  is 
emoodied  in  a relation  and  all  relations  can  be  printed  but 
it  is  hard  to  extract  a catalogue  form  from  them.  By 
orintinq  ''recorafile'*  ant  "whr"  relations  all  listings  in 
the  system  can  be  s*en  as  a list  form. 

It  would  be  preferable  to  use  a more  efficient#  faster 
database  system  to  implement  ISIS#  or  not  to  use  a database 

system  at  all. 


c 


I “'Lc  (I  Tfr liSAGt 


I 


?ne  Ibis  syste"^  ies»Tn»ri  with  software  cataloQuinq 
in  t'lm;  nowever  th^  svs^e"'  roulr)  ne  osert  in  ^any  tlifferent 
a o plications*  fnr  e»a’"ole»  thf»  assionnent  of  oersonnel  to 
jnrs.  i^arsnnnol  characteristics  coulfi  be  out  into  relations 
an  j wnen  a oerson  is  nee  le^l  for  a soecific  (Ob*  he  can  be 
foun  1 tnrouah  the  search  orocess. 
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' U S t P ' S p F.  P F w E N C F MANUAL  ! 

i 

i 

Th(»  Our  Cl  OSes  of  this  manual  are  threefold: 

1.  To  introduce  the  cirooran  to  facilitate  maintenance.  | 

2 . lo  orovide  information  to  the  ISIS  system  manaqer  to  | 

J 

enable  him  to  xeeo  tne  svstem  efficiently  confiqureci.  ■ 

< 

4 

1 

3.  To  provide  the  user  with  more  detailed  knowledqe  of  \ 

i 

thesystemandto  list  theerrorconditions.  ■ 

i 

Punning  the  system  is  very  easy  and  Generally  no  | 

i 

previous  enoerience  is  required.  The  first  time  user  should  ] 

not  need  to  read  this  manual;  he  should  simoly  1 oq  in  as  j 

I "isis"  and  then  tyce  "go". 
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TAl'Lf  OF  COMTeNTO 


IM  I KUOUC  I ION 25 

ISIS  26 

A.  VIF/’ 26 

H.  StAK'Ch  PKOGWAN 28 

1.  berieral  vie*^. ......28 

2.  Sr'PCiMcations  of  s^arcH  program 52 

C.  AOD-OFLt  TF-MOD  IF  t PWIK.HAM 56 

1.  (ianera)  View ...........5b 

2.  Spec  i t i c a t i pn  s of  Artd-De  1 o t o -’^oO  i f i v Proa. .40 

SYSlfcM  UbNfcWATiUN 42 

A.  I'AIAhASb  Sf  rOP 42 

rt.  compilation  of  PROOWAV.S «S 

L . SlMpLt  llJlOlfl  Ml 4 7 

0.  t WPOP  MESSAC.KS 57 


I . INI  1 1 i)N 


1 n n t r 11  c t 1 o o .>  1 S o f t w o r o I n t o r t ,» t i o n S v s t (•  t"  I I S 1 S ) » s « n 

online  c 1 <■  o I v'  ine  e spec  i o > ' v le  s i line  o tor  o otimi  t e r so  f t w d re  . 

Usino  I *' 1 ;')  o user  't'ov  reconl  t^e  enistt'oce  anO 

0 h 1 r ir  t e r I s f I r s of  o neiv  p moron',  oni)  m.iv  moke  seorrties  tor 

exist  ini  sottw.ire  !>v  citino  the  chirocteristiCH  ilesirrvl. 
IhorocterjHtics  ire  snecitieil  t'v  selection  trotn  <i 
succession  of  m e n >.)  s . 

1 i)  I i>  IS  i mo  1 emen  t el  on  ,i  t’lH’-ll  computer  ofie  r >s  t i nvj 


unOe  r t •>  e 

IJ  N 1 X o p e r o t 

1 no 

S V s f e n' 

u s 1 no  t h e 

I Nt.Kt 

Odtd  hose 

mon  S'le-Tien  t 

system. 

1 t 

is  w r 1 

t t en  in 

t hr 

OUtL  'tuerv 

I onoud  ie  empe.l  1e>1  in  the  o ro  ir  oinm  i no  I onvuiooe  C. 
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II,  ISIS  PWUi'.kAMS 


A.  I.liNic'WAL  V I fc  V 

Ihtj  syStieTt  is  co’^nosprl  of  thr^^  nrogramsJ 

1.  M 1 i n ^roof'3T'  ( isis'nain.c  ) 

fh)3  proar^m  is  »<ritten  »n  ti^e  1 dn^juape  C.  Upon  lociin 
as  "is\s"*  Tiain  is  expcutprl  au  t oit' a t i c a 1 1 v . Then,  according 
to  user  instructions,  control  is  transferred  to  one  of  the 
pro  grans  in  figure  *> , Isismain.c  is  very  straightforward 
an  1 needs  no  explanation. 
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i s i s n a 1 n . c 
■na  i n program 


s r c . g 

search  program 


I 

I 


acim . Q 

Add-Helete-Modi fy 
program 


finiire  S.  ISIS  program  heirarchy 


r 


I 

t 

i i 


i 


I 
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?,  ^^rognir'  ( src.o  ) 


Inis  t'Poor.i'T'  is  written  in  13UE.L  (t^'e  IMiRtS  query 
lanouaoe)  anq  C.  It  Ones  a search  ot  ISIS  software  listings 
accoroim  to  user  lua  1 i f i c a t i on  s and  nisolays  the  results. 

^.Aqn-L'elete-'-oditvRroorarrlari'P.o)  ' 

Ihis  proararp  is  also  written  in  (UJtL  and  C.  It  allows  a 
user  to  and  new  listings  to  the  system.  It  also  allows  a 
listing  originator  to  modify  or  delete  an  existing  listing. 

4 . Data  St  rue  t ures 

I ‘ 

; I 

Ire  orinciole  ISIS  oata  structures  are  described  below!  i- 

a.  Ihe  relation  "record file"  contains  a master  file 
of  tt'e  listings#  with  each  identified  by  name  and  unique  ID 

n 1 1 m t'  e r ( R I f) ) . ^ • 

р.  Information  about  where  to  find  the  software  j, 

corresooriging  to  the  listings  is  in  the  "whr"  relation# 

identified  by  onioue  1 1"*  number. 

с.  Ihe  main  software  characteristic  classes  are  the  j; 

tuples  of  toe  "mg  intable "relation. 

a.  A variable  set  of  "node"  relations  embodies  the  i 

( 

I 

^ 1 
' 1 

I 


tree  structure 


i 


nOvlf*  peljtion  contains; 

1.  ListiPiPi  n,^mps  (in'1  ID  nu'T'hePS. 

A n T / o r 

£? . The  names  of  tier  f‘nvlf»n  t nmle  relations# 
ilenritiel  tiv  ^ID's  of  ?ero. 


B.  bEAt^LM  PBO^.WA^^ 


1.  G>eneral  View 


The  search  orooram  searches  for  listinqs  of  existing 
software  meetinq  the  characteristics  soecified  by  the  user. 
The  user  srecifies  these  bv  answerinq  questions  nosed  by 
ISIS. 

System  execution  is  slow  even  when  the  listing  database 


1 s 

Short;  to 

D re yen  t 

a long 

search 

over  a short 

list#  the 

user 

may  o e w i 

1 1 i nq  to 

scan  a 

list  of 

all  of  the 

records  in 

t he 

system. 

For  this 

reason 

there  i 

s an  option 

to  display 

al  1 

records  at 

the  b e q i 

n n i nq . 

A gene "a  1 

f 1 owChart 

of  the 

search 

program  i s 

given  in 

f i au  re  '^1.  After  the 

user  snecifies  some  quali 

f i c a t i ons  # 

t he 

system 

r e n 1 i e s 

how 

many 

1 i s t i ngs 

meet  the 

.quc)  H f i c a t i ons  / the  user  may  then  either  see  the  listings 
which  meet  his  qualifications  or  he  may  change  his 
qua  1 i f i c a t i on  s . 

After  one  search  has  been  finished#  the  user  may 
continue  with  other  searches  or  he  may  exit  from  the 


sy  s t em 


main  src.q 
prints  Introduction 


counts  I of 
listings 


branch 


help 

> 

display  all 
listings 


help 


qmainK  ) 

prints  general  class! 
flcations  to  begin 
quallf Icatlon. 


qmaln2(  ) 

prints  present  quallf icatlona 


help 

-< 

branch 

begin  qualification 
at  the  beginning 
preserving  present 
qualifications. 


dlspl2(  ) 
display  listings. 


qsls2(  ) 
further  qualify. 


deleteql  ) 
delete  some 
qualifications. 


I 


Figure  4.  The  general  flowchart  of  search  program  src.q. 
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The  functional  rjianr-j'n  of  the  searcfi  ppoorann  is  shown 


in  f i ou  r e S . 

Ine  souPC#*  COOP  for  the  search  Drooram  is  contained  in 
fcr^e  files, 

a.  File  src.o 

Ine  cole  in  this  file  nerfoPTS  the  actual  search;  it  is 
cowooseo  ot  the  followino  functions; 

mdin  ; calls  intro d ani  nnsrch  functions, 
intro  : prints  the  introduction  and  invokes  INGRES 
usino  the  ISIS  database. 

mnsrc  : calls  the  search  routine*  then  exits  ISIS, 
search:  nnonitors  the  search  orocess  bv  calling 

functions. 

countl:  counts  number  of  listings  in  the  System, 

dioll  : disniays  all  tistinas  in  the  system, 
nmainl:  monitors  the  Qualification  process, 

prelsl:  nuts  relations  onto  stack  1. 

dslst?  : one  bv  one  oets  a relation  name  from  stack  1* 
Qualifies  it  and  puts  results  onto  Stack  2. 


nmaint*:  monitors  the  rest  of  the  Qualification. 

CDs2sl;  copies  stack  2 to  stack  1. 
rroual;  prints  current  oua I i f i cat i ons  . 


deletes  Qua  1 i f i C a t i on s from  stack  1. 
displays  listinos  according  to  qualifications. 


Kll**  ••'^csrc.a 


t' . 


Tnis  t H f>  IS  i nc  1 u ieti  in  src.n  at  cowDile  tyrre. 

Int*  reasnn  tne  seircn  oPOfjrd’’'  is  S‘»Darated  into  two 
tiles#  src.i  ani  eorsrc.n.  is  ttiaf  the  EUUFL  n r ec  ChO  i 1 e r 
noes  not  see""  to  work  correctly  ♦or  looa  source  ♦iles, 

Ihis  file  oroyines  the  tollowinrj  functions; 


‘ > I s a 
cn  t t b i 
fi  i s t t;  i 
>e  t n’^ 


Jtsoldys  11  type  Qua  I i ♦ i C a t t on  s . 

counts  taole?  tuples. 

displays  listinas  in  tahle5. 

oets  a listinq  njmowr  from  terminal. 


c . F » I 
This  f 
A.io-Oe  I e t e 
funct ions: 
c y lb  r c 
h e I r i s 

jr eadc 

orea-1n 

m S Q O r I 

1 n f 0 h e 


e c om  . q 

ile  IS  common  to  both  the  search  proaram  and  the 
•>'odity  proqram.  It  provides  toe  followina 

: evaluates  the  first  usaqe  of  search  proqram. 

; prints  information  helpful  to  a user  who  has 
"lost  his  way". 

: oets  a character  from  terminal. 

: qets  a maximum  of  ten  inteqer  numbers  from 

terminal . 

: prints  an  error  messaqe. 

: prints  ISIS  information  of  a qeoeral  nature. 


<?.  opecitications  of  the  Search  Proaram 

A search  is  performed  by  soecifvinq  the  characteristics 
of  the  souQht  for  software.  As  the  search  continues#  these 
c h a r ac t e r i c t i c s are  successively  refined. 
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S^ircfi  is  lone  on  a si'^ulnred  tree  structure.  tverv 
no ie  ot  thp  tree  is  a relation.  The  root  of  the  tree  is  the 
“maintat'le"  relation.  In  orOer  to  Oeoin  the  search  process# 
.1  user  musf  cnoose  at  lesst  one  Oranch. 

fhe  qualification  process  uses  two  qualification 
stacks#  eacn  P5  ele-rents  lono#  so  the  user  can  have  a 
•naxiTun  of  ou  3 1 i f 1 c a t i ons  at  anv  one  time.  Stack  1 is 
useil  as  the  main  stack#  stack  ? is  used  as  an  auxilary 
stacs  when  c'^anqino  qua  I i f i c at  i ons  . 

Each  stack  record  has  two  fields: 
a.  qualification  na-^e 

D.  qualification  tvoe#  which  has  value  m , kv  or  D. 
Ihese  cooes  are  usel  to  specify  actions  to  oe  Performed 
when  the  stack  is  processed. 

M : tnis  qualification  shows  miscellaneous  tuples  which 
are  tuples  with  ID  numPers  areater  than  zero  in  the  given 
relation. 

*.  ; Instruction  to  write  all  the  tuples  of  a aiven 
relation  which  have  an  ID  numoer  areater  than  ?ero. 

D : Instruction  to  display  all  tuples  of  this  relation 
which  are  qroater  than  zero:  there  e*ist  here  some  tuples 
which  nave  1 D numners  ecual  to  ^ero»  meaning  there  are 
furtnen  sumivisions.  So  E*#  in  effect#  will  cause  branch 
recorus  to  r*  lisplaved  also. 


ii 

i 


- \a- 


i 


Tf><»  lisrlav  tuf^ction  ( ciisol?  ) uses  srac^  1 records 


^ccoroiriT  to  the  oua  1 » t i c a t i on  tyre  it  employs 
litterenr  m,»rhoos  to  find  listinos  whicb  meet  all  the 
specific  oua > i f i c 3 1 i on s . 

To  display  ana  i\  type  ou  a I i f i c a t i on  s » three  t ad  1 e 
relations  namen  t ad  1 e 1 # tarle^  and  tadlei  are  used.  Tadlel 
and  tadlel  are  used  for  listina  lO's  which  meet  one 
dualification.  Note  that  the  display  process  is  an  AND 
ooeration  not  an  operation,  sc  t ad  1 e 5 identifies 

listings  which  meet  all  previously  processed 

dual i f 1 c a t 1 ons  . 

It  is  more  difficult  to  display  0 t yoe  Qua  1 i t i c at i ons , 

$ 

which  have  pranch  relations,  because  it  is  also  necessary 
to  find  out  and  evaluate  all  listinos  in  the  branches.  For 
this  reason,  in  addition  to  the  three  table  relations 
mentioned  aoove,  two  more  relations  named  tabledl  and 
tadled<^  are  used.  All  listino  rid's  for  a oiven 

dualification  are  saved  in  tanledl,  and  subbranch  relation 
names  are  saved  in  tabledc?.  One  tuple  is  taken  from 
taoled'?;  if  this  tuole  shows  a branch,  it  is  evaluated  and 
the  resultino  listino  Id's  are  out  into  tabledl;  branches, 
if  any,  ^re  out  to  tabled^  aaain,  and  the  Process  continues 
until  tabled^  is  empty.  At  this  time  taPledl  has  all 
listings  which  meet  0 tyoe  oua I i f i eat i on . 


iinl,  r^e  user  at  a tiire  cari  eirc'loy  tris  cart  ot  the 


">  r 5 0 r a ; 

ot  •'e 

Si  t u a t 1 0 h 

1 s 

i 

t e r T 1 n » 1 s 

t o r 

; 

» rj  a 1 n . 

1 

'■ore  t 

r a o 

D r i c e s s at 

O'ac 

r^ise  tr^se  tat'lest'ecoirecorifusecl.  Itthis  j 

j 

Svjsrecteo  frie  vjser  Should  checlt  other 

i 

a user  disolav#*  then^aitandtry  i 

j 


ooe  user  ">iv  he  doini  the  duaHtication 
“I  o'^lv  .T»srle»  Tusi  he  vione  serially. 


L 


- ^6 


Ihis  croora’T  is  used  to  aao  ne*>  listinas  into 
svste-n  and  to  delete  or  frodi^v  existinq  listinas.  A 
qeneral  tlowchart  of  tne  oroaram  is  aiven  in  fiqure  b and 
the  functional  diadra'"  in  fiqure  7. 

Ihe  source  code  of  the  rroaran  is  cowrosed  of  the 


tollo«im  files; 

a.  hile  aiti.o 

Ihis  file  oerforns  add,  delete,  and  Todify  actions  and 
invokes  functions  in  the  other  files. 


File  adn.a  contains  the  followinq  functions; 

main  : calls  infohe  and  branch  functions*  and  invokes 
the  database. 

brancn:  branches  to  add*  delete  or  modify  processes. 

adi  : monitors  add  process. 

detpar:  oets  parameters  for  a listinq  from  terminal. 

aorfwh;  appends  listinqs  to  recordfile  and  whr 
relations. 

adirls;  adds  listinqs  to  relations  hy  callinq  other 
funct ions. 

P'jtstr;  outs  relation  name  chosen  by  user  on  the 
stack. 

prints  current  class  and  subc a t eao r i e s . 


S7- 


oc  u r c 1 


main  adm.q  I 
prits  Inforaatlon 


begin  ADD 
gee  new  listing 
parameters  from 
terminal 


branch 


begin 

DELETE-MODI FY 
get  ID#  and 
password 


exit 


append  new  list in 
to  record  file 
and  whr  relations 


branch 


branch 


add  to  existing 
branch  relation 


add  listing  to  ; 
current  relation! 


branch 


create  a new 
branch  relation 


modify  where 
relation 


branch 


modify  descr;p 
tlon  in  record 
file  relation 


delete  all 
information 
for  a given  ID# 


Figure  6.  General  flowchart  of  Add-Dele te-Modify  Program  adm.q 


Figure  7.  The  functional  diagram  of  Add-Delete-Hodify  program 
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a 1 1C  J r : 

.lOil  s ^ 1 1 

St  1 no 

t o 

current  relation 

• 

n e « P r r : 

1(1  s * 1 1 

■}  » 1 nil 

t o 

a newly  created 

subcateqory 

mil  ion. 

e » 1 n r c : 

a 1 IS  ft  1 1 

St  in) 

f n 

one  of  the  exist 

i nq 

branches  . 

t . File 

enc  adm  .1) 

this  file  IS  inclu(ie<i  in  adm.ci  at  compile  time.  These 
two  t i I os  were  snlit  for  the  same  reason  that  the  search 
routine  was  divioe'i;  the  EuUKL  precompiler  seemed  unable  to 
process  both  at  once. 

File  encadT.o  has  the  followino  functions? 
aelmoci;  yets  parameters^  and  monitors  delete  and 
modify  Processes. 

oetnum:  yets  a listing  ID  number  from  the  terminal, 

delete?  beoinninq  part  of  the  delete  process, 
nrodlt;  deletes  a listing  from  a relation, 
modify:  beoinninq  part  of  the  modify  process, 

moewh  : mooifies  listing  description  and  where 
informat  ion. 


g C.Filecom.d 

■ 

^ This  tile  contains  functions  common  to  the  search  and 

g And -Delete- Fooifv  programs.  For  more  information  refer  to 

"i 

the  search  prooram  on  rage  J?. 


I 


c' . Si’fC  i * I C t 1 on  s 0^  I p t 1 f V prooram 

I ho  proco«;<',  iisor  can  i»nter  his  listing  into 

ox)st>nq  rhar(<ctpristic  rplations  or  hp  ran  crpate  npw 
{'ranch  rnlvitions  and  riit  thp  Hstino  into  them, 

I he  oroCPSS  can  stock  ur  to  a maximum  ot  ?S 


relation 

nd'T'ps 

. 1 h i s 

Goes  not  mean  the  u 

s e r IS 

rest  ricted 

to  putting 

h » S 

1 1 S t i n g s 

into  fewer 

than  ^0 

r e 1 a t 

ions#  but 

rather 

that  he 

can  not 

have  more 

that  4^  S 

further 

divisions 

1 d e n t 1 f i 

ea 

ano 

p e n d i n i 

vi  t a n v one 

time. 

A h en 

■3 

new 

re  1 at  ion 

is  created 

as  a 

new  b r anc  h # the 

save  commonn  must  he  I'ertormpd.  This  is  done  in  ttle  adm.q 
{'V  the  npwOrc  (np»  branch)  function.  The  date  SoopHed  to 
the  ijAvF  command  must  be  advanced  periodical  Iv  bv  the  ISIS 
mananer;  otherwise/  when  the  date  is  reached#  the  relations 
mav  t'p  inadvertently  runaed.  It  is  probably  best  if  the 
save  tote  is  identical  to  that  used  to  save  other 
re  1 at  ions. 

btLtTt  and  Vi'OIFY  processes  at  the  t'eainning  use  the 
same  delmcd  function  tc  identify  the  owner  of  the  listing 
which  IS  to  be  delated  or  modified.  For  this  reason  the 
user  lives  a listing  10  numt>er  and  the  system  ehec>is  to 
find  out  if  thore  is  any  record  with  that  nijmtier. 
■)  f t er«,irt»s  the  password  is  checked#  the  password  was  set  up 
luring  the  A 0 0 t>rocess  when  thp  listing  was  Created#  it  is 
one  ch,iract“r.  For  example  it  may  be  Ifullstor)  or  any 
letter  or  diiit.  After  the  correct  oassworrf  is  received# 
the  delete  or  mgiify  process  can  begin. 

-a  1 - 


I 

I 


utLtiu  ss ; 

Ihis  oroc^ss  a listinq  fro’’'  " r ec  o rrl  t i 1 e " » the 

T'arifer  I i s t i i retafion,  and  f ro'r  "whr"»  the  where  found/ 
relation,  ,ind  I'eoin*',  to  searrh  the  branch  relations 
startir>o  at  tne  roof,  a hen  the  listinq  is  found  recorded  in 
a relatton,  tne  subbranches  of  that  relation  are  ignored. 

I'Jhen  a listing  is  leleted  fron  a relation,  if  there  are 
no  more  listings  in  that  relation,  the  relation  is  also 
fiestroved.  If  the  oarent  has  no  entries  other  than  the 
destroyed  relation  then  the  oarent  relation  is  also 
destroyed;  otnerwise  the  child  relation  name  is  deleted 
f rom  t he  oarent  . 

Ihe  delete  process  emploies  the  same  stack  used  by  the 
add  process.  Tne  function  dumwrt  (dummy  write),  which 
Prints  the  too  S elements  of  the  stack,  was  used  in  the 
testind  phase  of  the  program  and  was  left  in.  It  can  be 
reactivated  t'v  removing  the  two  slashes  "//"  (comment) 
previous  tn  dumwrt().  Hv  changing  S to  in  the  "for" 
statement  in  dunwrt,  all  stack  elements  can  be  written 
during  the  (je)pte  ancJ  aad  processes. 

von  IF  Y pt^llCtSS: 

It  IS  only  oossit'le  to  modify  listing  description  and 
where  information.  It  the  user  needs  to  modify  the  tree 
entries  tor  a listing  he  must  first  use  OrLFTt  to  remove 
the  listing  entries  and  then  use  ADO  to  create  revised 
ones . 


I 


' . HI 


III.  SYST^'-'  r,ENEK4  r ION 


Ihis  secfion  explains  how  to  install  ISIS.  ISIS 
requiri?s  the  database  manaoe'nant  systeii  INCHES  which 
renoires  the  UNIX  operatino  system  which  runs  on  PDP/11 
hardware. 

A.  DAlAHASt  St  ri/P 

The  actual  software  database  is  named  "isisO", 

If  a Ut VQNSTPA T I ON  database  is  desired^  it  should  be 
named  “isisl".  A demons t ra t i on  database  is  not  necessary. 

The  database  is  created  as  follow. (The  sign  is  the 

UNIX  prompt  symnol) 

First  mount  INCHES.  At  NPS  this  is  done  via  a UNIX 
Shell  file*  invoked  as  follows: 

X Xusr/ingres/svsmnt.sh 

Mow  create  database  isisO: 

Xc  r ea  t db  isisO 

Invoke  INURES  oreratino  on  the  newly  created  database: 

Xinqres  isisf' 

The  INCHES  prompt  is  "no 

Now  create  the  main  listino  and  location  relations  and 
the  "root"  relations  for  the  atrihute  tree: 

-as- 


IJO 

create  rec  o ril  t i 1 e ( r i ii=  i , rri^irresr  1 ? » r(^es=cS0,  pSMrd  = cl) 
create  lohrCrict  = i<?»  ries  = cSi'l 
create  irointaeleCcrname  = clf?) 

•' Ow  " ■'■'A  1 1, 1 AhL  t;  " » the  rent  relation#  rust  be  loaded 
with  tne  na"»es  ct  its  nirect  aescencients. 
h or  ex  arp 1 e , 

accent  tn  na  i nt  ab  1 e ( c mare  = "corouter") 

Now#  "corouter"  is  aooencied.  drancb  names  have  a 
maxim ur  of  Ic’  characters. 

After  fillino  the  rain  tattle#  create  the  corresponding 
node  relations. 

For  e X arp 1 e # 

create  c orcu  t e r ( r i a = i<f#  crnare  = cl<?) 

Lertain  other  relations  which  are  used  by  ISIS  as 
terporarv  storaoe  durinc  execution  must  also  be  createo#  as 
t o I tows: 

create  taolellrid  = i2) 

create  tablec?(rid  = i<?) 
create  tanle3(rid  = i?) 

create  tabledHrid  = i?) 
create  t ab  1 erJi?  ( c r name  = 


I 

I ' 


i; 


C 1<?) 


AM  the  ess'jntijl  rel^^tions  have  nov.  been  created.  DO 
i\iOI  FUr^Gtl  to  "save"  relations  uo  to  a reasonable  date»  for 
evamole  1 year  ahead,  for  examclet 

save  relationname  until  jan  30  1'^/'? 

Keoeat  this  co'n'tano  for  each  relation  which  has  been 
created. 

Mow  the  database  isisO  is  ready.  If  it  is  desired  to 
create  the  isisl  dei^on  s t r a t i on  database^  the  orocedure  is 
reoeated  as  anvef  excect  that  the  first  command  would  be 


Sicreare  isisl 


B.  COMPILATION  OF  PROGRAMS 


To  compile  the  main  program  in  file  isismain.c  use  the 
command 

X cc  isismain.c 

Now  rename  the  output  "isis"? 

X mv  a. out  isis 

To  compile  the  search  program: 

First  use  the  EQUEL  precompiler  for  the  files  which  are 
used  by  search. 

X equel  src.q 

The  output  is  in  file  src.c 

X equel  encsrc*q 

The  output  is  in  file  encsrc.c 

3!  equel  com.q 

The  output  is  in  file  com.c 

These  are  all  C files.  Compile  them  using  the  EQUEL 
1 i brary : 

X cc  src.c  “Iq 

The  output  is  in  file  a. out.  rename  it  "isissrc"»  as 
f o 1 lows: 

X my  a. out  isissrc 

"isissrc"  is  an  executable  file  which,  when  invoked. 


performs  an  isis  search 


To  compile  the  Add”0e 1 et e-Mod i f v ppoopem 


Fipstf  use  the  eauel  ppecompilep  tor  the  files  which 
are  used  bv  this  ppoqpam, 

X equel  adm.q 

The  output  is  in  file  adm.c 

X equel  encadm.q 

The  output  is  in  file  encadm.c 

The  file  com.c  was  alpeady  cpeated  dupinq  seapch 
comp i I at i on . 

Now  compile  the  ppogpam,  usinq  the  EQUEL  libpapy. 

X cc  adm.c  ”lq 

The  output  is  in  file  a. out. 

Rename  it  "isisadm",  as  follows: 

X my  a. out  isisadm 

Now,  "isisadm"  is  an  executable  file  which,  when 
invoked,  oepfopms  isis  add,  modify,  and  delete  opepations. 

Now  pemove  unnecessapy  files: 

X pm  SPC.C  encspc.c  com.c  adm.c  encadm.c 

Isis  is  now  peady  to  use. 
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I,.  M'Vlt  n.t  Iij»-IAL 

1'^is  tutorial  is  nrerarrn  to  oivr  thp  usrr  a aerieraJ 
iJt'-j  ot  ro*  ttiio  svstei'  interacts  with  the  user.  This 
tutorial  covers  the  sejrch  ororess  on  1 v J it  ooes  not  Chanae 
the  syste"'  resi-ient  oata.  It  uses  the  ISIS  cieronstration 
datatase  naieu  "isisl"  whose  relations  and  linkage  schema 
are  shown  in  tiijure  I on  naoe  lo. 

-Tyoe  one  oT  the  foMowino  numbers  in  " " 

"1"  to  St.  'ih'Cb  ISIS  records 

■V"  to  flC'l)  new  ISIS,  OFLfcIt  or  MODIFY  existing  ISIS 

records 

"5"  to  ':jui  r ISIS 

no  > 

I 

ISIS  means  I n s t rue t i on  a 1 Software  Information  System 
written  at  N^S 

when  you  need  helc»  at  some  key  ooint 

tyoe  "h"  to  net  HtLf  *»• 
oooo  I uc  k 

tor  more  information  tyoe  "yes" 

otherwise  Fl'SHRtTl,'HN(KEYao>yes 

This  rrocjram  is  an  online  software  dictionary 
There  are  two  major  oronrams: 

■m 

I.  St'^RCt'  oronram; 

t.'ser  can  find  existino  software  by  conversing  with 


the  c omeu  t e r 


A 


? , A i)  I ■ , L>  t L t f ►■  » v ( 1 0 1 h r r r p a : 

ilser  c^'>  .^vivePti'''**  pis  o^vpi  sott«.-iPe  t>v  Mst)nij  it 
»itp  tri»»  ssstffti.  P’povisip'ns  ^or  ‘POvittyinij  jmi  a»*let>P'0  a 
listip-i  ore  inclune-i.  L'c'tP  c'rc'jro'ps  ore  eosv  to  use.  loev 
or  POt  neei  previous  evoerieoce.  Just  tvoe  answers  after 
"ao  >"  parks. 

Ire  orooraps  are  . ritten  in  .fata  Sutilamiuaae  lJULL» 
Suooorteii  Ov  oat»  rase  njnaaeTient  syste".  anJ  the 

crofirar'irino  lan-auane  C. 

-Tyre  one  of  the  toMowinrjs  in  " " 

"I"  to  neain  ACI'IAL  usaqe 

to  oerjin  i)  E S T A f 1 1' N usaae 

ao  > 

? search  in  oroaress  ... 

There  are  / recoris  anout  ’pisceltaneous  oroarans  »n  the 
s y s t eip 

-lyoe  one  of  the  followin')  nu'ppers  in  " " 

"t"  to  Qualify  your  neeJ 

"i?''  to  QISFLAY  all  the  records 

CIO  > 

I 


-lo  lUALl^Y  yOtir  ne“n 

lyoe  one  nr  •nore  ot  the  follow  i no  nunOers  in 
seoaratino  tiy  cosp'as 
You  '‘lOST  pyna  at  l-^ast  OO'* 

" 1 " Ian  a via  le 


L 


A 


•«  ,J  ••  » r - 

■JO  > 

I . ^ 

-fo  J.IAi.  IFf  ♦♦  I.J'>''jijonf*  ** 

lvo-»  O'*  -nor-*  tollowi'^-j  f'>u'nri»rs  .ind/o>*  letters 

i 

in  ••  •• 

“I"  3lj0l 
V 0.<iC3l 

■'  n ’*  i J I to  « n t - j j ^ 1 1 t V 

OJ  > 

1 

-lotjrttie''0‘JALlPt  »*  erp,^ 

fyoe  one  or  -oo"-*  ot  roe  tollo^inq  nii-nt>ers  s'xi^of'  letters 

in  '•  " 

" 1 " s o 1 1 -«  3 r e t o o 1 
11  i I 1 f 1 r V 

"o"  '1 1 Si.  F 1. 1.  r ')?  O.JS  otrer  to.jo  shove 

" n " Niv)  I to  .von  t ous  ) i f V 

00  ■» 

1 

iio  to  of)*»»  voiir  .ujoliticotions  ore  the  foHowino; 

I - 0 1 10  I 

f?  -so  ft  » jref  on  I 

-Ivoe  one  o » toe  to  Mow  inti  nii-ioers  in  " " 

"I"  tn  iHSr^LM  recorls  which  oeet  voiir 
O'J  ,1  I 1 t 1 c 0 t ions 

-'ll)  - 


" d"  t f'  f ij  r ( n r 

"5"  to  DLi.fTh  sene  of  au»  1 1 M e i rtf' s 

" -4  " to  Mr.  I'  I J iU  A L I (■’  I ('  \ I I OM  St  t ►>  *»  f**  o i no  i r q 

r'K t 5£ *<  »■  I NT"  {'  r i»  3 e o t <nj  s I i ♦ t c s t i oo s 
"o"  fU:L°  tjr  oto^r  to^n  shove 


Un  To  no^r  vOU'*  HJ  s 1 ' * > C s t i on  s are  the  toHowinq; 

I -si  to'  (oss  mo  more  qua  I 1 ♦ 1 C s t i oo  ) 

^ -so  f t ws r e t on  1 ( h s 3 'NO  T'ore  au s I i # i c a t i on  j 

I 

-Ivoe  one  of  tne  followinq  nunhers  in  " " 

"I"  to  0 IS  play  recorils  tahicti  Tieot  your 
qus I i f i r a r i on  s 
"3"  to  furroer  tJUALlFY 
"5"  to  OLLtft"  sone  of  <ju  s 1 t f i c a t i on  s 
"4"  to  OtOIN  Nij  AL  1 f-  r C A T T 0''!  at  tt^e  heoinninq 
P P t.  S tl  P V I N I’  o r e s e n t qij  s 1 > f i c a t i o n s 
"n"  MtLP  for  other  th^n  shove 

qo  > 

1 

nrocossino  qua H f i c a t i on  ; a'qol 

oroce^sinq  ms  I i t i c s t 1 on  : softwsretool 

At  tois  point  rpclurevl  to  ' ? * reroros 

Itiere  sre  * 3 * records  wOico  meet  qualifications 

-Type  one  of  toe  fnilowinq  nu""hers  in  " " 

"1"  to  Sht.  records  woich  -eet  qualifications 


SI- 


"J”  to  voijr  Jii.t  I 1 ^ < C cl  t 1 on  s 

lO  > 

1 

l">  5 r.^corl  Pcjme  .-if^scriPt'cn 

bS  I fn*»rqe  ; .rppoPS  MO  cMar  loncj  records  according 

to  < e V 

l^b  ! covjntinosnrt  I sorts  MO  cMar  'ong  records  according 
t o Kev 

-Fyne  one  gt  tre  foMowing  nunt'ors  in  " " 

"1"  to  see  'Mtr’E  intormation  to  find  a specific 
record 
•V  to 

go  > 
t 

“ijtve  only  one  of  t^e  I O nunfers  w h I c M have  t'een  orinteci 


go  > 

1 c^S 

Id  5 

^ n e r p 

I3b 

oro  * 

“lyoe  one  of  the  tolloky’og  nunt'ers  in  " " 

"I"  to  sen  infornatinn  to  fiovd  a specific 

record 
to  ><LFUh'Nj 

go  > 

do  to  nov»»  vour  oij.i  1 1 f 1 c at  i ons  are  toe  foFlo».ino; 


-b^- 


I 


1 - a 1 (IP  1 

t h a s 

' "J 

rro  ri* 

YU  a 1 i f i r a t 

ion) 

U 

records 

[ 

' 

- S 0 f t w a r e t 0 0 1 

t h a :i 

d! 

a 0 r f* 

>lua  I 1 f 1 c a t 

1 on  ) 

reco  r(fs 

- 1 V 0 e one  of 

t he 

fo) 

1 0 w i 

no  numhers 

1 n " 

•« 

"I"  tn  t'lSHLAy  r«>cori1s  whic^'  voiir 

Ou-yl  \ tic-it  ior's 
" " t t ij  r f h rf  r i j U A I . I f-  Y 

"5"  to  ntl.Mt  seme  of  rnjoilificeffcns 

"/I"  to  iJl)  Al.  1 1-  I C a I I i)N  flt  tfie  heoionino 

f’WtSfHfVlAili  o resent  fiu<Ylitic<Ytions 
"h"  hFLf’  for  otfier  then  ohov/e 

(JO  > 

- I voe 

one  or  more  of  the  iiueHtic-ition  numbers  which  have 
lieen  printed  on  the  sc''et>n  just  t'efore#  seoaratino  by 
C omm  -1  s 

Olv 

"n"  i'Ui  T to  ««ant  I'tLEFF 

<10  > 

Ho  to  nowf  vour  ouilitications  are  the  following* 

1 -.* ) 'JO  I (h,)s  Im(1  more  jij  a I i f i c a t i o n ) 4 records 

-tyoe  one  pf  the  followini-j  numliers  in  " " 

'*1"  to  ay  recorvfs  which  meet  vour 

dual  i f i c a t ions 
to  further  uI'ALIFY 

-S  Y- 


i 


I. 


" ^ " to  i''t-  L t U 1 i f 1 c fi  t ) on  s 

" y " to  ''t  l>  i 'I  M I il  T F 1 1'  >i  I T 0‘l  ^ t the  h oq  1 no  1 no 
i’i’'hSKKvl''f''  nresent  ou.iHFiC'^tions 
"n"  mFI.  t’  for  othnr  thr^n  at'ove 

no  > 

■1 

- I O u 1 1 H L 1 f V your  noon 

Fyoo  one  or  in  ore  of  tho  foMo'^inq  numOers  in  " " 
sonarafino  hy  con’f’as 
too  '-HIST  tyoo  at  least  one 
" 1 " I anqii  aoe 

"2"  oroa 

oo  > 

-To  topthor  OHAllKy  **  area  ** 

Tyt)e  one  or  noro  c*  the  followinq  numbers  and/or  letters 
in  " ’• 

"1"  softw a retool 
" £* " military 

"m"  I'-i  1 Sb  t LLf- ' iF.  lUlS  other  than  adove 
"n"  Mi)T  to  want  qualify 
no  > 

Ur  to  nowf  yO'jr  nu  t ' i t i c a t i on  s are  the  tollo'wino; 

1-alnol  (has  more  nua  1 i f i r at  i on  ) 

e?-mi  1 i t ary 


-Tyrie  f''?  fotlowino  nijnh“r<»  in  " " 

"1"  to  i)lSt’LAY  records  wh»ct'  meet  vour 
quel  i ♦ icet ions 
*V"  to  turt-ner  ijIiALIFY 

"V  to  I't.l.  t'lK  some  of  aue  ) i f i c o t i on  s 
"a"  to  Htl’Ii')  ijlJ  AL  I f"  I C A r I ON  et  tlie  heqinninq 
HWtSt.‘fv!.\lG  present  quel  ificet  ions 
"h"  MfcLP  tor  otner  then  ah'o\le 

no  > 

a 

-lo  further  QUALIFY  **  military  *■* 

Type  one  or  more  of  the  followinq  nymoers  and/or 
in  ■'  " 

" r*  n a vv 
" t? " airforce 

"n"  NOT  to  vnont  qualify 
•JO  > 

1 ’ 

On  to  nowf  your  qualifications  are  the  followinq; 
1-alqol  (has  till  more  qualification) 

<?-na  V V 

-Tyoe  one  of  tne  follow  inn  numpers  in  " " 

"1"  to  i''ISHLAY  records  which  meet  your 
qu  a 1 i T i c .1 1 ions 
"<?"  to  further  OIiALIPy 
"i"  to  Or.LtTF.  some  of  ijua  1 i f i c a t i ons 


letters 


-SS- 


4 


’■o  'UJ'^LlF^CATTCl^.  at  tne  beainninq 


n 


I 


L 


r’i*  t Sh  !■<  V ( I'Mj  rri->sent  Qua  1 i + i c t i on  s 
"ti"  rf.Lt’  'or  other  rn.in  aticve 

no  > 
t 

orocessinn  ti.i  a H M c a t i on  : alaol 

orocpssinn  nuaHtioation:  navy 

Ar  this  point  re'iucen  to  * 1 * recor-ls 

There  are  * 1 * recoros  which  teet  nualifications 

-Type  one  oT  tho  Tollowino  numbers  in  " " 

"1"  to  Stf  recorcs  which  meet  qualifications 
"H”  to  TU^^‘  ano  CHAWGf:  vour  qualifications 

no  > 

1 

II)  ^ record  name  Oescription 

190  I navioation  I Iona  ranqe  cruise 


“Type  one  of  the  followino  numbers  in  " " 

"1"  to  see  '.'ihr.RE  information  to  find  a specific 
record 

"d"  to  RtltJRIi 

no  > 


Up  to  no/.» 

vour  qual 

i t 

ications  are  the  fol 

1 -a  1 oo ) 

t has 

Np 

more  nua 1 i f i c a t i on ) 

P ” n a vy 

o w i n q ; 

A records 
<?  records 


-Tvoe  one  of  the  follow  inn  numbers  in 


So  “ 


( 

I 


1 

i 

ii 

! 


I 


to  r»»corfls  whic^i  "’eet  vour 


r 


q u » 1 ) ♦ 1 r .1 1 » o n s 
"J"  tc  further  Qb-'Llf-V 
"3"  to  uhLh.rt  some  of  I i f i Cfit  i ons 
"y"  to  hhl'ili'J  '.JiJiiL  I F I C r I ,»t  the  oerjinnina 
present  nu<^lifiCdtions 
"h"  htLF’  for  other  then  .ihove 


oo  > 
help 


Type  one  of  the  tollowina  numhers  in  " " 

"1"  to  txlf  ISIS  dn(i  return  to  UNIX 

"tf"  to  iSFblN  ISIS  dt  the  heoinnincj  again 

" 5 " to  C 0 N T I LI  £ as  you  are 

'M'*  to  see  more  INFOWi^fTTION  about  ISIS 

go  > 

I 

ISIS  has  been  I ongeo  out 
'joonPye»  come  a<iain 


-S7- 


•I 


M 


I) 


t H 0 K’  '•  f S S t • F,  S 


I 

i 


I 


I 


I 


I 


ln»^  Ii;i»hhS  ’!vstt»’’'  'T'rtv  11  Pint-  EiiiUKL  error  niessaaes  with 
error  ruiThers  anO  a little  information  during  run  time. 
Explanations  ot  ttiem  can  be  founn  in  reference  n.  EQUEL 
errors  arise  when  tne  svstem  relations  are  not  in  oroper 
forir.  Kor  example  in  one  relation  there  may  be  a tuple 
referencino  a nonexistant  decendent  relation.  This 
conrjition  mav  occur  if  tne  cnm outer  ones  down  or  if  the 
user  gives  un  in  the  mionle  of  the  add  process.  In  order  to 
fix  the  system,  the  relations  must  be  checked  by  the 
manager  using  INGRES  oirectlv.  (The  UNIX  command  "RESTORE 
database  name"  should  be  issued  whenever  a crash  occurs 
durino  an  INit.REii  ooeration.l 

There  are  other  error  messages  which  are  orinted  by 
ISIS  itself  due  to  wrong  arguments  given  by  the  user.  These 


are 

all  se  1 T 

exolanatary,  and  gi 

y e the 

user  anot  her 

Chance 

t o 

t yre  a 

correct  argument. 

In  snme 

places. 

i f 

the  user 

type 

s the  same  wrong  argument 

three 

times 

the 

system 

terminates. 


-Ss. 


1 » s T >:>  1 , c 


"•ainl)  ( /*  fnp<s  one  the  two  ISIS  rroifjms  * / 

1 n t n ; 

1 n t 1 » j » k ; 

printt("-Tvr'e  pne  of  the  followino  numoer'^  in  \"\n''); 
rrinttl"  \"1\"  to  StA^^CH  ISIS  l»stinas\n\ 

to  Al't)  new  tistinos»  HFL^IF  op  Mt.lpIFY  existinciN 
ISIS  listinosVn  to  OHIT  I3IS\noo  >\n"); 

n = ne  t i n ; 
i t (n  ==  1 M 

if(li  = toPkl))  ==  0)< 
exec1("isissrc"»"isissrc"»0); 
ex  i t I ) ; 

I 

wa i t ( < i ) ; 

\ 

1 f ( n = = ^ ) ( 

it(li  = toPk())  ==  0)( 

exec  ) ( " i s i sarim"  * " i s i sa<i'""  » 0 ) ; 
exit!); 

> 

wa  1 t ( !^  j ) ; 

) 

1 t ( n ==  5 ) 
exit!); 


1 


s nc  . Q 


[s»ruct-ic)n,^l  Software  Inff'rn'otion  Sv‘;te«  (ISIS) 

IM.KLS  oit.=5r^<;t»  at'rH  cation 

This  rfoiThi'm  foes  SK.AriTH  cobtiof^  oT  ISIS 

Th h other  rert  ot  ISIS  is  in  tilt*  r^dn.c  whict> 

ooes  ‘'On*  ,4nn  DtLtTt  (unctions 


The  other  rert  ot  ISIS  is  in 
ooos  ‘'0n»  ,4nn  DtLtTt 
Ihis  ti)e  hfis  two  includes: 

1 -pncsrc.o  P . cow. a 
tile  coir.c  is  cowrron  tor  DOtn 


nort  ot  ISIS 


//  tlavi-erese:  erase  steckl  or  not 
extern  Char  ferase) 
extern  int  *eraser; 


wa i n t ) ( 

introcil);  /*  prints  ISIS  introrluction  ■»  / 
wnsrctil);  ^ wain-search  Denins  x/ 

printtl"  ISIS  has  Oeen  1 oonerl  out\n"); 
print  t("  aoo'iovr  cone  aaain\n")f 
<Yo  exit 
) 


intro'ii)  { /*  prints  introrluction  */ 

char  xisl'l,  ♦intrcJ 

printtt"  Isis  means  Instructional  Snttw.are  Intormation\n\ 
System,  written  at  jpj  \p,\ 

***  when  voti  nee-i  help»  it  some  kev  point  tyoe  \"h\"  tc\ 
oet  HtLt  ♦■**\n  nooo  lucx\n"); 
printtl  "\n  tor  more  intormation  tyoe  \"yes\"\n\ 

Otherwise  POSH  PtTuP'M  htY\noo  >\n''); 

intro  = QreaOcC); 
itlintro  ==  'v')  intohe()J 

a n a i s ; 

l-irintti"  -lyoe  one  ot  the  tollowinos  in  \"  \"\n\ 

\"1\*'  to  Peoin  ifTOAL  jsaoe\n\ 

to  be  pin  |1f^'l,'rJSTPATll1^J  usaaeVnao  >\n"); 
i sU  I = <ireaoc  ( ) i 
1 t I i s 0 1 = = ' 1 ' 1 ( 

OR  inores  isisu  //  invokes  inares  database  named  ISISO 

> 

, t I i sO  I ==  V ) 1 

intires  isisl  //  invokes  oemon  s t r a t i on  database  ISISl 

) 

i*(isOl  1=  '1'  :<<  IS  01  1= 

( p r i n r t ( " \r  i' reno  aroument;  t rv  aqainXn"))  doto  aqais, 
t 

) /»  POP  intro d() 


it'nsrc'iO  < fTfl  1 n- sp  » r c ; mnnitc's  seai“cf'  routine  •/ 
s C h o r • r t ; 
rt  = ' e ' ; 

cvcie:  /•  is  user)  to  hev-jin  ISIS  eaain  a / 

rt  = seorcni);  /*  c.ill  >n.^in  search  routine  */ 
It  Irt  ==  ’t')  rt  = cvIl'rcC)*  in  file  com.q  */ 

i*  (rt  ==  't'*  !!  rt  ==  'c')  rjotocvc'e; 

return. 

> /♦enoff'nsrct'l) 


search!.)  { 

cnar  *cs»  *rts; 

#c  int  tree,  ns; 

ns  = t';  crinrft"  search  iri  orooress  ...\n"); 
tree  = count l(trec); 

prtiutl"\n  There  ore  Xci  recorDs  about  tiiscellaneousN 
p roar  31*3  in  the  svstenVn",  tree), 
aoan  s 1 : 

rrintt(*'-lvce  one  of  the  foilowinq  nuniOers  in  \"  \"\n"); 

printtt"  \"1\"  to  OUALIFY  vour  need\n\ 

\"c\“  to  ('ISPLAY  all  the  records"); 
it  !rts  ==  *1*)  { 

print t("  aqainXn"); 

rrinttC  \"5\"  to  F X 1 T ISIS  and  return  to  UNlX\n\ 
to  PtniN  ISIS  at  the  Oeoinninq  aoainVn"); 

) 


else  orinttl"  \n"); 
r t 3 = ' t • ; 
aoa  ins; 

pr i nt  t t "qo  >\n"  ) ; 
c s = qreadc ( ) ; 
sw i r c h t c s ) { 

case  ' I ’ ; 

rts  = cnainH); 
r reax  ; 
case  ' : 

rts  = displH'; 
break ; 
case  'S': 

rts  = ' e ' ; 
break; 
case'*)': 

rts  = 'b'; 
break; 
case  ' h ' ; 

rts  = helrisi); 
creak  ; 
ao  fault: 

it  (ns  < >)  ( 'I'snerlt);  nstt;  ooto  aodinsf  ) 


if  (rts  ==  'c'  !!  rts  ==  'a')  jo  to  aoansi; 


refurn(rts) 


en'1  ot  searcH  rctitine  */ 


r 


/ * 


a of  records  i r>  recorcifile  relation 


COuntlC)  i //  returns 
tts  int  ctrec; 
o t r e c = 0 ; 

cc  ranoe  of  r is  reccrofile 

sa  retrieve  (otrec  = count(r.rnan-e) 

returnfot  rec ) » 


oispllt)  { //  disclav^irst:  executed  if  disolav  is 
//  reouesteo  Cefore  any  Qualification 
aa  cnar  rrdes(Sll»  rmanellilf  *rtdl» 
na  1 nt  r r i a; 
r t i 1 = * "1  * ; 

printfC"  ‘ill  the  records  are  the  foMowinqsJXn"); 
crintf("iO  » record  nar-e  desc  r i ot  i on\n"  ) ; 


ranoe  of 
os  retrieve 
r r i n t t ( ” id 
ea  1 

return(rtril); 


r is  record  file 

(rri(i=r.rid»rrdes  = r.rdes»rrname=r.rname) 


{ 


is  is  is  is\n",rridr 


, r rnane » 


t r rdes  ) » 


// 

// 


ft  <t 

0 a 
o s 


0 o 
0 a 
a o 


These  two  structures  ara  used  as  stacics 
in  the  Qualification  orocess 

struct  stltaa  < 

crar  stlelmllS); 

Char  *stln; 
int  Stic; 

} sr 1 t^s)  ; 

struct  st^t an  { 

Char  st<?eln(lii; 
char  *st^ni; 
int  s t <?c  ; 

1 Sf^l^^^l; 


I 


oH'^inlO  < //  aiia  1 i t i c a t i on -rr  a i n ; first  time 

//  Qualification  is  'for’e  and  search 
//  continues  in  this  function  bv  calling 
ff  ether  functions. 

Struct  stltaa  *osti; 
extern  char  ferase? 

Char  rnmnarne  ( I 5)  , ‘rtcuar  *rta»  *rtsl^; 
c e i n t nmnum ; 

int  nbuf[12)»  *no»  i»  il  /x  not  oreceeaed  with  HO-  */ 
nr  = <nbuf(0]; 

rtoua  = 'f'J  //  return  function  if  finished  correctly 
f erase  = ' Y ' ; 

//  to  use  stackl  aa  a in  vriithout  exiteiJ  oroaram* 

//  initialize  emtv 
pstl  = ^stl[01; 
forCi  = 0;  i < 25;  i+t)  f 

forlil  = 0;  il  < 15;  ilt+)  ostl->stlelmlill  = ' *; 

rstl->stlni  = ' '; 

os  1 1 1 1 ; 

1 /*  end  for  1 */ 

daodin:  //  corres  if  want  to  nualifv  without  erase  stl 
printfl"  \n  -lo  Gl)f>L.  IFY  your  need  \n  Type  one\ 
or  more  of  the  followina  numbers  in  \"  \"\n\t\ 
seoarrUeo  by  commas\n  You  MUST  tyre  at  least  oneVn"); 

//  mint  maintable  relation  to  beoin  Qualification 

t a 
a a 

i 


1 

[ 

( 

[ 


> 


1 

» 

i 

i 


-05- 


nmn  urn  = 0 ; 

rancie  of  m is  maintable 
retrieve  (mm name  - m.crname)  ( 
nmnum  t + » 

printfl"  \"’'Cd\"  ;(s\n",  nmnum»  mnname); 

1 

/*  dets  incut  from  the  terminal  and  outs  in  array  */ 
rtg  = Qreadn  ( (tnou  f I in  ) ; function  reads  incuts  */ 

it  (rta  ==  'e')  < rtoua  = 'e';  ooto  endqua;! 

//  put  relation  name  on  stackl 
p re  1 s 1 ( &nbu  t ( 0 1 ) ; 
pstl  = N s t 1 ( 0 I ; 
rtsl2  = nsls2(<tnbuf(01); 

if(rtsl2  ==  'e')  ( rtoua  = *e';  ooto  endqua;  1 
rtoua  = ora  i n2  ( A nhu  f ( iT  1 ) ; 

ifirtoua  ==  'b'  kl’.  ferase  ==  ' ' ) ooto  qaoain; 

enaoua : 

9 

returnlrtYua); 

/*  end  <Tumain  */ 


i 

I 


4 


rrelslC^  PTC '•  //  cal’s  rel.^tions 


/ / 

corresrc'nn'nc:  to  arrav 

onto  s t 

acxl  froo  mjintatile 

1 n t * 

a r r o ; { 

extern 

Char  ferase; 

extern 

1 nr  xprasec; 

rt  3 

i n t 

r 1 oum  ; 

C h .1  r 

t n a r-  e ( 1 3 1 ! 

S A* 

lot  I 

1 ; 

U ts 

Char 

*t1wr,  ♦flrur; 

struct 

s t 1 t a o * s t 1 p ; 

S t 1 P = 

>ist  1 101  ; 

t 1 run 

= • 1 • ; 

toarellf’l  = '\0'; 

iflferase  ==  { 

needs 

aJiust  stackl  pointer 

k»hi  = I lstlc->stlPi  = ='N''  I IstlD->stlp'  = ='W') 

s 1 1 c + ♦ ; 

ePtiSt»c,'  = Stic;  /♦  to  ijsp  in  crnaipil  * / 
terase  = 'i'; 

} 

else 

eraser  = 0; 
relnu'p  = v); 

ranue  of  t is  ’rair'tacle 
while  ( • a r r r 1 = 0 ) ( 

t s retrieve  (tnare  = t.crnafre)  < 
relnurtt; 
t 1 w r = 'o'; 

it(*arrc  ==  relnur’)  i 

Torlii=0;(stlr“>stlel"’tii)=tnarT'elii))  1=  '\0';iit  + ); 

stlc->stlelni>(ii)  = '\0'; 

St  1 c->St  l<r  = ' I,'  ' ; 

Stlctt;  arrc+t;  tlwr  = 'v';} 

a a > 

1 ♦ ( t 1 .V  r = = ’o') 

if(flrijn  ==  ’1’)  fir  1,1  n = 

else  { 
ift^arro  == 

crintt("wrona  arou’rent  \"fn\"  is  (.■tiscar.iedVn"); 
else 

iti*arrc  ==  ‘■^‘^1 

r r i n t t ( " w rono  arfju'rent  \"n\"  is  d i sc  a r .1e  i\n  " ) * 
else 


a r r p ♦ ♦ ; t 1 

-> 

c 

D 

II 

1 

/ * e n '1  el 

s ^ ♦ / 

re  1 

nun  = i> ; 

1 / » 

end  wh  i 

1 e » ^ 

return; 

} 

/ X 

end  c re  1 

St ( ) */ 

I 


OS  1 Si*  ( nr  u < t' ) //  am  I 1 t i c .3 1 i on  - t r PT  st>3Ckl-to  stack;?: 

//  ooes  au.3  I i t i cat  i OP  r>  stl  an'i  nuts  on  st^ 

//  am  cocips  st^  to  stl  at  en-l 
ir>t  *nPutp;  { 

Struct  srlta-3  *C' stall 

struct  stftai  *rsta<?; 

putorn  int  ‘erasoo; 

5=  1 n t rniip , i » eric; 

int  *npufl5t»  t^jr; 

an  char  t-nnrelllil,  tcrpa'"e(151»  ‘fist?; 

aa  Char  *tl3v»  *rtol^/  *rtar» 

/*  initialwatipns  ot  variables  */ 
t c r n a m e I 1 i ) = ' \ 0 ' ; 

rtal<?  = 'f';  /*  if  asls?()  enecuted  correctly  * ^ 

ratal  = Kstll'M;  rsta?  = sst^(O); 

//  if  oesiren  ccr>v  present  stacwl  elements  to  stack;? 
if(eraser  1=  0)  ( 

whilelpstal  < era  sen)  { 
for(i  = 0;  i < 1;?;  i-tt) 

PS  t ar’”  > s t Pe  ( p ( i 1 = pst  a 1 ”>st  1 e I ">  { i 1 » 
psta;?->StPp  = r S t a 1 ->  s t 1 n f 
pstalt+r  psta?+t; 

) /*  ena  *hi1e 
eraser  = 0; 

) / * end  if  */ 


whileirstal“>stlelpl01  1=  ' ')  < 

flsv  ~ 'n*;  flsn  = *n'; 

forli=  c;  i<l£;  i+h)  tnrreliil  = ' '»  tpprelll2) 


= ' \ 0 ' ; 


aet  a relation  nape  frop  stac<l  ♦/ 
i t I r s r a 1 ->s  c 1 ==  ' [> ' ) 

i fprli  = 0;  i < 1^;  i++) 

tppreMil  = pstal">stle1m(iJ; 

) 

else  i 

/»  if  or  A park#  copy  it  frop  stack!  to  stack^*/ 
t o r ( i = y ; i < 1 ? ; i 1 1 ) 

p s t o?->  s t ;^e  1 m [ i ) = p s t a I - > s t 1 e 1 P ( 1 1 J 

nstac?">st2p  = ostal~>stlp; 
pst  a?  + + ; 
opto  enowh i ; 

> /♦  ena  else  */ 

ranoe  of  e is  tmrrel 
retrieve  (eric  = e.rio)  ( 
if(erid  ==  0)  flsv  = 'v'# 


//  i»  nc  Hforp  suri('iivi«;ior>s  rrpvicuslv  mjpked  as  0 

iflflsn  ==  'v'  N.<  ttsv  ==  'n') 

< 

//  cut  relation  on  Stack?  with  v tfark 

t C)  r I 1 = ; i < 1 ? ; i ) 

c'sta?->st?p|nii)  = cstal“>stlelnnlil; 
psra?->st?'^  = 'i'. 
c s t a ? + + ; 

//  all  recoo^is  in  relation  oarkeci  'M'  will  t)e  disclavetl 
/ / in  dirain?  in  aisclav 

Goto  ennwhi; 

> / * enr)  it  s / 

//  there  oav  or  nav  net  ce  some  subdivisions 
else  { 

Drintt("\n  -lo  further  WllALiFY  **  %Sk*  \n"»tmorel); 
crintft"  Ivoe  one  on  more  of  the  following  numbers"); 
printft"  an1\/or  letters  in  \"  \"\n"); 

1 

r num  - f* ; 

30  retrieve  (tername  = e.crname) 
so  where  e.rio  = 0 < 

r num ♦ h ; 

crintff"  \"%d\"  %S  \n"  , rnym,  tername); 

3 3 ) 

ittflsn  ==  'v') 

orintft"  \"m\"  N' 1 SCF.  LL  AfaEOliS  other  than  above\n"); 

crintf("  \"n\"  NOT  want  to  nualifv  \n"); 

//  adjust  Pointer  to  coint  to  beoinnina 

noufbt  = nbufb; 

rtor  - G readn ( nbu f b t ) ; 

if(rtar  ==  'e')  i rtol?  = 'e';  Goto  endol?;  ) 

//  accoroinq  to  array  valuesr  out  cohresconqing 
//  relations  on  stack? 

while(kntn.jfti  1=  0)  { /♦  while  “ i ^ / 

ifl*ntufb  ==  //  means  'n';  not  want  to  qualify 

note  ennwhi;  //  at  the  end  visls<?  () 

//  if  array  value  other  to  an  'n'  or  'm' 

while(knt'ufb  1=  *nbufb  1=  0)  i /*  while  »?  */ 

//  cut  name  from  relation  on  stack?  with  0 mark 


-bo- 


r 


r n u in  = 0 ; t w r = It  J 

< 2)  < /*  while  » 3 */ 

t'vr+*-;  rouT  = 

os  retrieve  (tcrnanie  = e.crn.irre) 

a a wheree.ri'i  = 0< 

r n un  ♦ ♦ / 

ifirnijir  ==  ^rrn.iU'')  { 

for(i  = it;  } < 15;  i+  + ) 

i''Staf’->st<’el'"li)  = tcrnamelil; 
rst.Tf’->st-2'n  = *0'; 

twr  = 0;  nhu^h'+tJ 

} 

0 0 } /»en(i  where*/ 

) /*  end  wnile  * 3 */ 

itt*nliutn  ==  ‘tb)  continue; 

else  i 

1 f ( * fi  h u t h i = 0 ) 

r r i n t t ( " w a r n i nq -w  rono  arcjunienf  %ci  or  n is  \ 
discar-Jer,  \ n",  *nhufb);  nt>utt'+-+;  } 

> /*  enri  while  o ^ ♦/ 


itl*nl'u*t'  ==  ( /*  'reans  miscellaneous  */ 

//  rut  relation  name  on  stack?  with  'M*  mark 
for(i  = O;  i < 15;  i*+)  ( 

os  t a?->s  t ?e  1 m [ i 1 = tmoreMii; 

> 

rsta?->st?m  = 'M';  psta?t+; 

1 /*  end  it(*nnufb  ==  'tp)  */ 

it(*nOu^d  0)  niiufd  + + ; 


} /*  enu  while  <J  I */ 

enowh  1 : 
p s t a 1 «•  t ; 

1 /*  end  while  at  the  heoinnira  •/ 

cps?sl(t;  /*  copies  stack?  tp  stackl  */ 

end  ! I ? ; 

0 

K /*  end  usls?(rtdl?t;  */ 
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ccjs^sll)  { /*  c oc  V - s t ac  k<^  - 1 o-s  t ac  1 */ 

//  erases  s^acl<l»  cocies  stacite?  to  stackl/  erases  stacks 

Strvjct  Stltao  ‘nolJ 
Struct  st'^taa  *ror^! 


» “ i n t i , j 1 ; 
pol  = tstllOl; 


ooi^  = <st?lO]; 


//  erase  stack],  to  oeoin  copy  with  a clean  stackl 
fnr(j  = y:  i < i?S;  j+t)  ( 

tor(jl  = 0;  jl  < 1^;  ji+t) 

Pol->stlelmljl)  = * 

pol->Stlrr  = ' *; 

po  1 ->st  ic  = 0 ; 

P o 1 + ♦ /* 

> 

pol  = is  t 1 ( ')  1 ; 


//  copy  stacks?  to  stackl,  ana  erase  stack2 
j = y; 

while!  i < ^5)  1 /*  while  » I */ 

i f (po4f->st -2^  = = * D ' J noj?->s  t 2<n  = = ' ' !!  po<?->s  t t?m  = = * M ' ) 

/*coovoart,  */ 

{ t o r ( j 1 = 0 ; j I < 1 ^ ; j 1 + + ) 

DO  1 “>s  t 1 e I rr  ( j 1 J = co2->st  2e  I m [ j 1 I ; 

D0l->stlm  = Do2->st2'r; 

Dol->stlc  = po2->st2c; 

/*  erase  stack?  * / 
for(jl  = O;  jl  < 1?;  jltt) 
oo?“>s  t ?e  1 w 1 j I I = ' ' ; 

po?->s  t ?m  = ' ' ; 

Do?->st2c  = o; 

I 

else  j = 

poi++;  oo?++;  j+t; 

1 / * end  while  s 1 * / 


return; 

1 / * end  cps?s  1 * / 


anain^lnt'utno)  oualitication-Sf^conij.iry  */ 

int  *nput['o;  i 
ext'^rn  ch.ip  fePas«*» 
struct  stltaa  ‘rlc? 

Bs  cnor  *r!frf>rt»  *C3<?C' 

irt  ‘nuftTCf  x.^; 
f er asp  = ' t ’ ; 

nbttrrr  = ncutco; 
rlc  = vstlloi; 
r t = ' c ' ; 

//  prase  Stic  he  fore  hpijinnini  to  orint 
/ / any  iiu  a 1 ) t i c a t 1 0 ri  s 

torlx^  = I*;  < i’s;  {plc”>stlc  = d*  plc  + + ;) 

wh  i 1 e ( pt  ==  ' c ' ) < 

r r q 1 1 a 1 I 1 ; 
c r f o t t I " \ n " ) ; 

oriPtt("“Tvr>e  one  of  the  fo1  lowing  numbers  in  \"  \"\n\ 

\"1\"  to  l^[S^’L*Y  recopos  which  meet  your  \ 
rju.al  i ficationsVo"); 

orinttl"  \"?\"  to  further  QUALIFYXn  ViX-X 

to  UtLETK  some  Ju a 1 i f i c at i onsXn"  ) ; 

orintfC*  X"4X''  to  hFGIIVi  QUALIFICATION  at  theX 

heci  i nn  i noXn  hRF^FhVlXG  present  ou  a 1 i f i c a t i on  s Xn  " ) ; 
orintfl"  X"hX"  HtL*^  for  other  than  ahoveXngo  >Xn")» 
a«?c  = greanc  ( ) • 
switch  (ne’e  1 < 

case  ' 1 ' : 

am2rt  = oispl^I); 
h r ea ; 
case  V ' : 

Qsls^(nDftmo); 
r r e a tf  ; 
case  ’ i ' : 

gmp’pt  s rte  1 e t c ( nh  f t mp  ) ; 
h reai^ ! 
case  ' 4 ' : 

gm?  r t = 'o’; 
terasp  = 'N'; 
orea«  ; 
case  ' h ' : 

gmi?rt  = heloisl); 
break; 

0 e f a u 1 t ; 

ms  oe  r 1 { ) ; 
h reax  J 

1 / * eng  case  */ 
nhftmp  ~ nhufPoJ 

> /*  png  while  »/ 

return(gmf?rt  ) ; 

> / * eng  gmain^  */ 


crGual()  ^ c r i n t ~cua H t 1 c a t i on s */ 

struct  stltan  *roil; 

to  char  ‘cifTw; 

3 0 i n t k , k? ; 

roil  = sstlKil; 
arpv*  = poil*>stliT'; 

iftoiTw  i=  'P'  JCs  ritrw  1=  ' dfTw  1=  ' l*V  ' ) 

{ 

C r i n t t ( " \n A a r n » nq  : You  have  NO  qu a 1 i t i C a t i on s \ n " ) ; 

oo t o enoc r Q ; i 

> 

else 

Drintf("\nUp  to  now»  "); 

rrintf("your  qualifications  are  the  f o 1 1 ow i nq ; \n " ) ; 
for (k=i;k<?6;k++)  ( 

k^  = k ; 

qmw  = ro i 1 ->s  t 1 m ; 
sw  i t c f*  ( omw  ) < 

case  'O': 

printf("%ci  -/'■s  "r  k,  po  i 1 ->  s t 1 e 1 m ) ; 

it(poil->stlc  > 0) 

printf("  %cJ  listinas\n"»  poil”>stlc)» 

else  printf("  \n"); 
break; 
case  ' M ' ; 

printf("%(i  -%s  ( ^ i sc  e 1 1 aneous  » has  NO  more\ 
qual i f i cat  1 ons  ) " f k»  po i I -> s t 1 e 1 m ) ; 
iftpoil->stlc  > 0) 

printf("  '/.d  records\n",  Doil->stlc); 
else  orintfC"  \n"); 
break; 
case  ' ri ' ; 

p r i n t f ( " lid  -%s(has  NO  more  qua  1 i f i c a t i on  s ) " \ 
f k r noil->stlelm); 

iftPoil“>st1c  > 0) 

printf("  Xd  listinas\n"f  oo i 1 -> s t 1 c 1 ; 

else  printtC"  \n"); 
break; 
default: 

k = ao; 

break  ; 

) /*  end  case  */ 

po  i 1 + ♦ ; 

) / * end  for  * / 

ifikd  > 1^)  { //  if  too  many  oual.  to  fit  screen 

printf("\n  to  CONTINUF,  PUSH  RtTUPN  keyVnoo  >\n”); 

qreacJc  ( ) ; 
i 

endprq:  ; 

return; 

) /*  enq  prqua 
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oiscli?()  { / * (lisr)flv-2  »/ 


srrucf  stl^'aci  *rtpi; 

ns  Char  reltnm[131»  *rt-rlrl»  ♦fldmw; 
sn  int  cthl,  1/  nrab*  ctiOf  ddum; 

rtdol  = 'c';  fit-ab  = I»  pfpl  = \srl[0]; 

1 1 op'w  = ptpl->s*’lw; 

//  COPY  stackl  element  to  temo  relation  name 
tor(l=0;  1 < ; 1+  + ) reltnmlllr'  re  1 t nm  t 1 <^  ) = ' \0  ' ; 

fop(l  = <i;  1 < \ I+  + ) reltnmlll  s ptPl“>stlelmfll; 

• 

aqa i 9 : 

wh  i 1 e ( C f 1 dmw  = = ' 0 * I I f 1 dmvw  = = ' M ' J I f 1 dmw  = = ' Y ' ) lii  t 1 t ah  <=  i.) 

{ 

pp i n t f ( "d r oc ess i nq  qualification:  "); 

fortl  = 0;  1 < 15;  1++)  printf("Xc",  reltomll)); 

opintf("  \n''); 

S3  ranqe  of  w is  reltnm 

Sw i t c h I f 1 dmw ) { 

case  ' L.' ' : 

d i sd ( f 1 t ah  * pt p I ) ? /*  in  file  encsrc.d  */ 

f I tab++; 
break ; 

case  'M':  case  Mv’; 

i f ( P t p 1 ->s t 1 r ==  0)  { 

c t h 1 = 0 ; 

ss  range  of  dl  is  tahledl 

tttt  append  t ah  1 ed  1 ( w . r i d ) where  w.rid  > 0 
33  retrieve  (ctbl  = coup t ( d 1 . r i d ) ) 

S3  delete  d 1 

ptrl->stlc  = ctbl; 

) 

1 f ( f 1 tab  ==  1 ) { 

tti  append  to  t ah  1 e 1 ( w . r i d ) where  w.rid  > 0 

} 

i f ( f 1 tab  ==  ?)  ( 

SB  appeno  to  t ab 1 e? ( w . r i d ) where  w.rid  > 0 

) 

f 1 t ab  + ♦ ; 
break; 

> /*  erd  case  */ 
c t r 1 + ♦ ; 

//  COPY  a new  record  from  stackl 

reltnmlbl  = ’ ';  /*  bad  spot  */ 
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for(l  = 0;  1 < 1?;  1+  + ) rpltniT’lll  = ptrl»>stlplfT<lll; 

tlo'T'w  - rtrl“>st!n-; 

) /*  enci  while  */ 

if(fltdr  ==  1)  /*  rrepns  stackl  en^tv 
{ 

rr  i r t f ( 'V<Ah’N  I r (7 : Y ou  heve  no  uuelitication  to\ 
f1 1 5 c 1 a V \ n " ) ; 

QO  t o encifi  i s » 

1 

ih(fltat'  ==  ?)  { //  tat'lel  has  rerorosf  copy  to  table? 


u n 

r anae 

0 f 

t 1 is  t ab 1 e 1 

ts  tt 

a r D e n d 

1 0 

table3(t l.rid) 

ti  6 

1 

delete 

t 1 

if(fltab  ==  31 

{ / * tarlel  and  table?  have 

records 

na 

range  of  t 1 

is  tablet 

c a 

ranoe  of  t 

is  table? 

t:  a 

itU 

n tt 

apoena  to  taple3(tl.rid)  where  tl.rid  = 
delete  t 1 
delete  t^ 

t ? . r i d 

ft  9 

range  of  t3 

is  table? 

ctirl  = cnttb3();  /*  in  tile  encsrc.a  */ 

Drintf("At  this  Point  reoucerl  to  *Xd*  listinqs\n"»  ct3d); 
i f ( C t 5 d = = 0 ) 

{ 

printf(" There  is  no  listina»  which  meetsV 
dual iticationsNn"); 
os  deletet? 

oo  t o enod i s » 

> 

else  i 

30  append  to  tablet(t3.nd) 

0 o de 1 e t e t 3 

tltab  = ?}  ooto  anai9;  ) 

> /»  end  i t I 1 1 t ah.  ==  3)  */ 

disto3();  / * in  file  encsrc.a 


endd i s : 

roturnlrtool  )J 
1 /*  eno  displ^  */ 


7? 


Ml II"  !■ 


/ / 

enr  1 

o s j r e 

to  s rc . c 

// 

i nc  1 

uoes 

cottb3()»  distb^l)#  disnC) 

// 

the 

reason 

this  Part  is  separate  is  that 

the 

// 

eauel  orecompiler  does  not  work 

well 

/ / 

for  larae  croarams 

ajnclutip  "encsrc.c' 


//// 


rte 1 e t a ( b t r t 1 ) /*  delete  aua 1 i f i c a t i on  */ 

i nt  *b  f ot  1 ; { 
struct  stlt aa  *s1p; 

struct  stPtan  *s^d; 

int  *bfPtP»  i»  *slDeno; 

«<»  char  *rtr1x; 

slD  = istllOl;  s2d  s &st?l01; 
ofpt2  = bfptl;  sloend  = sip  + P^i; 

Qrintf("  \n  -TyoeXn  one  or  frore  ot  the\ 

Qualification  numbers  which  have  beenVnr r i n t ed\ 
on  the  screen  just  before#  separatino  t.y  coirmasNoV 
O-^Vn  \"n\"  NOT  want  to  OELETEVn"); 
rtrl*  = oreadn ( b f p t 2 ) J 
bfot^  = bfpti; 

if(rtrlx  ==  'e')  aoto  endrlx;  else  rtrlx  = 'c'! 

//  oeqin  to  erase  cor  resoondi  nq  stackl  elennents 

//  '^9  means  n»  not  relax 

while(*bfDtl  1=  0 a *bfDtl  1=  99)  { 

sip  = slo  + *bfctl  - l;  /*  to  adjust  o.  */ 

//  check  pointer  limit  is  not  exceeded 
if(slP  > si  pend ) { 

printf("\n  warninq:  laroe  relax  arqumentX 
is  d i sea rded\n " ) ; 

sip  = sip  ♦ 1 ^ *bfotl;  bfotl-tt;  continue;! 
forCi  = O;  i < 1?;  i++) 

slp->stlelm[i)  = ' 

s lp->st 1 m = ' y ' ; 

sip  = sip  ♦ 1 - *bfpti;  /*  to  adjust  cointer  * / 

0 f p 1 1 1 1 ; 

) /*  end  while  »/ 

iflbfptl  ==  bfpt^  UK  bfnt?  ==  90)  opto  endrlx; 

//  to  compress  stackl  elemets 

//  copy  stackl  elements  to  stackl  (except  ones  X marked) 
wn))e(slo  <=  slpeno)  ( 

i f ( s 1 p*>s t 1 m = = ' 0 * !{  s 1 p->st 1 m = = ' M ' I!  s lo->st lm  = = ' W ' ) 

{ for(i  = 0;  i < 12;  i+t) 

s?P->st2elm(il  = slo->stlelm(il; 
s2o*>st2m  = slo->stlm; 
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1 


1 

i 

S(^r->st^c  = slp->stlc;  I 

; 

> /•  enn  if  */ 

s 1 u+  ♦ ; 

> / * er\ri  */ 

//secpm;coov'5tacw?tostac<l 
CDSt^s  H ) ; 
ena  r I x : 

f 

pefumCrtrlx); 

> /»  enP  apletq(t'fotl)  * / 


//  cc^.c  is  conwon  tc  search,  and  Add-He 1 e t e~Mod i t v » 
//  includes  cylbrc,  helois,  oreadc»  greaon,  msgerl 


tincluae  "com.c 
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enc  s rc • o 


//  This  file  is  an  enclosure  to  src.o 
//  SPC.Q  contains  searcti  oart  nf  ISIS 


cntto^l)  i /*  count-taf'>l“^I  */ 

//  calleci  tpo""  Hie  src.a  function  'lispl^l) 
« 3 i n t ar  * ; 

as  ranoe  of  t^  is  tao1e5 
as  pofrieve  (a  Ox  = countCtJ.ri^l)  ) I 

f 

«a  I 

return(acx); 

> /*  end  cnttbSI)  */ 


distbSl)  { /*  displav-tableS;  */ 

//  called  frosi  file  src.o  function  disoI^C) 

«s  Char  hroesI'ilH  hrnamelMI#  *sorc»  *rev«he; 
as  int  hrid»  ct5; 

ctj  s 01 1 sere  = 'y'; 
ac  range  of  ti  is  tabled 
as  retrieve  (ctS  = c cun t ( t 3 . r i d ) ) 
i f let  5 ==  0)  I 

orintfl" There  is  no  listino  which\ 
meets  cua I i f i cat i ons\n"  ) ; ooto  endtS;  I 
else  I 

D r i n t f f " Th e r e are  ♦Xf*  listinas  wnich  meetN 
oua I i f i cat i ons\n"  , ct3); 
or i nt  f I "\n" ) ; 

O r i n t t ( " “ 1 y pe  one  of  the  following  numbers  in  \"  \"\n") 
printfl"  to  SEE  listings  which  meet\ 

gua  1 i f i cat  i ons\n\  to  h'F  TUPN  and  CHANGE  vour\ 

au > 1 i f i c a t i on s \nao  >\n"); 

whilelsorc  1=  M*  sore  1=  ' * ) < 

sore  = areancl); 
iffsorc  1=  'I'  sore  1=  '2') 

cr  i nt  f I "i'.PONr  argument:  type  1 or  2 only\n"); 

) 

> 

iflsorc  ==  '«?')  Goto  en:1t3; 
printfl"lP  a record  name  desc r i Pt i on\n " ) ; 

as  range  of  r is  recorofile 

as  retrieve(hrid=r.rin,hrdes=r.rdes»hrname=r.rname) 
os  where  r.ria  - ti.rid  ( 

printfl"  %ci  Zs  ^.s  '^s  s\n  " , h r i d r " i " » h r name  » " ! " » h rdes  ) » 
s u I 

orwhr:  /*  print  where  info.  */ 
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jv.l 


followinn  nun"r<*rs  in  \"  VXn' 
V'-HtPE  i n f o piT'a  t i on  to  find\ 
to  KtTURKAnoo 


// 


sa 

aa 


un 


enrft  5 ; 

! = ' 2 • ) < 
rt i sc  a roen 


n r 1 n t t ( '*  \ n " ) ; 
n r i n t f ( " ” T vpe  ono  of  tHe 
cirinttC"  \"1\”  rc  see 
a SDPCific  recor.lVn 
rewhe  = orea(ic(); 

==  ' ' ) cote 

i t ( ppn.ne  1=  M'  pewhe 

c p 1 n t ♦ ( " w rone  arcuipenf 
onto  ennti; 

} ' 

if  pewhe  ==  M*  tc  see  ppcord  where 
printff"  -Give  only  on©  of  the  If)  nuoiOers 
open  printed\noo  >\n"); 
p r i n = oe  t nm  I ) ; 
ranoe  of  wr  is  whr 

ret  p i eve  ( h pdes  = wr.rries)  where  wr.rid  = hrid 
crintfl"  to  a whereVn"); 

orintfl"  \ci  -IsXn",  hrid,  hraes); 

) 

doto  rrwhr; 

enat  3 : 


and  KE  rURf.ED\n"  ) ; 


which  have\ 


as  delete  t5 

) / * end  d i s t D i ( ) 


*/ 


petntp()  ( /*  oe  t -nuirh  e r : ♦/ 

ao  int  pn,  pi,  pi i 
atop: 

P?  = 0; 

while((rn  = oetcharl))  1=  '\n')  { 

i f (rn  1 = • ' ) ( 

pn  a on  - 'O'? 
if(pn  >=  0 on  <=  ) < 

cl  = pn ; 

c:^  = pi  * 10  t pi; 

1 

else  { 

o r 1 n t f ( " « ronq  aroufT'ent;  t rv  aaainNnoo  >\n"); 
while((c>n  a qetrharf))  !=  *\n*)  //  erase  input  buffer 
no  to  Qtho; 

) 

V 

) / * end  while  * ^ 
return(p^)  ; 

} /*  enfi  aetn^li;  */ 


» I 


(i  i S(U  M t c » p r?  1 ) /*  cisol.iv-c!  transaction  */ 

//  cal  loo  fron  file  src.o  function  displ^C) 
i nr  fltb,  *prsl/  i 

»o  C^ar  rtnm(151; 

<»s  int  tj  * clooo»  cto^; 

//  cooy  stackl  element  to  temr  relation  name 
for(«:6  = (j;  kb  < l<?;  icbtt)  rtnm{kbl=*  ' ! rtnmll21='\0'; 

forCkb  = U;  kft  < 1 (?  ; k o ♦ ♦ ) rtnmlkbl  = p r s I “>  S t 1 e 1 m I k b]  » 
aa  ranoe  o*  rl  is  rtnm 

aa  anoenO  to  t at>  1 eel  1 ( r 1 . r i d ) where  rl.rid  > 0 
aa  append  to  t aP 1 ed^ ( r 1 . c r name  ) where  rl.rid  = 0 
aa  ranoe  oi  d^  is  tabled<? 
aa  ranae  of  dl  is  tabledl 

aga i b : 

aa  retrieve  (ctd2  = c oun t ( d? . c r name  ) ) 

if(cto2  > 0)  { 

c 1 OOP  = 0 ; 

wh i 1 e ( c 1 OOP  < c t a2 ) { 

aa  retrieve  (rtnm  = d?.crname)  ( 

# 

a a } 

aa  range  of  si  is  rtnm 

aa  anoend  to  tab  1 ed 1 ( s 1 . r ? d)  where  si. rid  > 0 

aa  aooenif  to  t ab  1 ed2  ( s 1 , c rname ) where  sl.rio  = 0 

aa  delete  d^  where  d2.crname  = rtnm 

C 1 OOP  f + J . 

1 /*  end  while  * / 

} / * end  if  * / 


aa  delete  d? 

i f ( f 1 to  ==  n < 

aa  append  to  t ab 1 e 1 ( d 1 . r i d ) 

) 

else  { 

aa  append  to  t ab 1 e8 ( o 1 . r i d ) 

1 

if(rrsl->stlc  ==  0)  { 
aa  re  t r i e ve  ( c t dl?  = coun  t ( d 1 . r i d ) ) 

prsl->stlc  = etd^f 

1 

aa  delete  dl 
> /*  end  c)isd();  ♦/ 


P 


i 


com . a 


III 


//  Com.o  cc<^tains  corntoo  ^uncf^ions  ^or 
//  1.  SEARCH  proqram 

//  2.  AOD-DELE  T E “N'OD  I F Y proaram 


cvtorcC)  { //  c VC  1 e-b ranc h evaluates  result  of  first  usage 
//  ana  sets  return  value  to  exit  or  begin  ISIS 
utt  char  *cc  t 

» 4 i n t nc  ; 

nc  = 0 ; 
aaa ini; 

printfC"  \n"); 

p r i n t f ( " - r vpe  one  of  the  followina  numbers  in  \"  \"\n"); 
rrintfl"  \"1\"  to  EXIT  ISIS  and  return  to  UMX\n\ 

\"2\''  to  PEGIN  ISIS  aqainNnao  >\n")» 
cc  = oreaac ( ) t 
s»<  i t c h C cc  ) 1 

case  ' 1 ' : 

cc  = ' e * ; 
break; 
case  ' 3 ' : 

cc  = 'b'; 
b reax ; 
case  ' h • ; 

printf("  -Nov»»  vou  have  onlv  two  choices  \n"); 
goto  aoa i n I ; 
ae  f au 1 t : 

i f ( nc  < ? ) { nc++;  msaerlf);  goto  againi;  > 

else  { cc  = 'e';  break;  1 

> 

return(cc); 

} /*  eno  of  cvlbrc  routine  */ 
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hetn-Iblb:  orints  inforr'dtion 

C"  cri  ir  *c  ^ : 

~ « inf  n : 


oh  = ’ 
a q a 1 o':  : 

c 

« • 

/ 

n h = 

o; 

rrinttl 

l« 

\n 

" ) ; 

Print  f ( 

!• 

1 vr*» 

one 

o t 

t h 

t 0 1 1 ow 1 no 

numt>ers  in  \"\n''); 

t'  r 1 n t t 1 

It 

\" 

1 \ " 

t o 

La  [1 

ISIS  and 

return  to  UNIXXnX 

\ ■ V \ 

t c 

o b U T f. 

T 15 

TS  at  the  Ceoinninq  acjainXnX 

\ " 5 \ " 

t c 

CUM  It'.'Ut 

as 

you  areXn" 

) ; 

1 f ( c h ; = ' r ' ) 

p r i n t t ( " \ *'  '-I  \ " to  s (•  p m o r t»  T N'  F ii  W N'  A T I 0 ’'i  a P o u t i S I S \ n " ) » 
r r 1 p t t ( " a o > \ n " 1 ; 

= iirpaicl); 
s '.v  j t c ( c H ) < 

c 3SP  • 1 • ; 

CO  = ' e ’ ; 

L r e 3 k * 
case  ' c ' : 

CO  = ' C ’ ; 

creak  ; 
case  ' 3 ' ; 

cO  = 'c ' ; 

Creak  J 
case  ' 4 ’ : 

tnfohef  ); 

ch  - ' r ' ; Qoto  aoain'^; 
a e t a n 1 t : 

it  (nh  < 5)  { nh+t;  aoto  aoain5»  J 

^tse  { ch  = 'e'f  Creak;  > 


} 


rpturn(rn); 


) 


/ * eoc  helrisC)  */ 


1 n t on e ( ) i 

rrinttl"  This  cro^r,^^•  is  an  online  software 
DrintfC"aicticn3ry\n  There  are  two  rTiaipr  oroqrams:\n"); 
printtC"!.  5te>JCC  Dror5rafr;\n  User  can'finci  existinq\ 
software  oy  conversion  with  the  cotrputer.Xn"); 
printfl"  P.  , >4(01?,  Uf.Lt  Tb  » '^'OOIFY  crooram;\n\ 

i.'spr  can  advertise  his  c.vn  software  Cv  Tistinq\ 
it  witn  the  svste"’.\n"); 

prinff("  Provisions  for  noOifyino  and  deTetinaX 
a lisrino  are  i oc I udeo . \n " ) ; rrintf("  \nBoth  oroqrams  are 
easy  to  use.N 

ton  do  not  neen  previous  experience. N 
JustSntvpe  answers  after  \"ao  >\"  marks. \n"); 
printft"  The  proorams  are  writtenin  the  data\ 
suclaniuacp  Out'L/  supported  Cv  the  U'l^RES  \ndata  Case\ 
manaoenrent  system  and  the  proarammino  lanauaqe  C.\n\n"); 
r e t urn ; 
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} 


nreaflcC)  < reaos  max  10  C^ars/  returns  first  only 

(»  Char  ct'uf[101»  *cc»  *ctemo; 

CO  = Nct'uflCi; 

whilet  (ctemn  = aetcharfl  ) !=  ' \n ' ) < 

if  (cfoirn  1=  ' i *cn  = cterro#  CDf+-;  ) 

1 

returntch uf  10)  ) ; 


qreadn(nar)  //  reads  max  12  numbers  and/or  letters 
//  secarated  by  commas?  puts  into  array. 

//  max  number  value  is  ^7 
int  *nar;  { 

St  a char  *crd;  /*  return  f rot'  aread()  */ 

»»  int  ntemol,  nfemp^r  fltimef  nel/  cnt/  nzero»  naqain? 
int  *nartmp; 
naqain  = 0; 
nartmp  = nar? 
aoa i n r ; 

nar  = nartmn?  //  to  adjust  oointer  at  endloop 
f 1 t i m e = 1 ; 
nel  = 0 ; 

crd  = 'a';  /*  if  no  error  return  'q'  for  ao  */ 

/*  out  zeros  is  array  */ 
for  (nzero  = 0;  nzero  < 12?  nzero++) 

( xnartmo  = 0?  nartmpf+;  } 
nartmo  = nartmp  ” 12?  /*  adjust  nartmo  to  point  */ 

/*  to  beqinnino  of  the  array  to  use  again  */ 

Drintf("go  >\n"); 

i«hile(  (ntemol  = oetcharf))  1=  ' \n ' ) { 

i f ( n temp  1 1 = ' * ) < 

//  if  input  is  "n": 

//  put  it  in  array»  erase  input  buffer,  return 
i f ( n t emp  1 ==  ' n ' ) { 

*nar  = 9'?? 

wh i 1 e ( ( n t emp  1 = aetcharC))  1=  '\n'l  ; /*  null  stm.  */ 

ntemol  = ' ' ; 

onto  endloop? 

} / * enc  if  ♦/ 

//  if  input  "m";nut  in  array,  continue  other  arguments 
i f ( n t emp  1 ==  ' m ' ) ( 

*n3r  = 98 ; 
na  r + + ; 

wh i 1 e ( ( o t emp  1 = oetchar())  ==  ' ')  ;/*null  stm.*/ 

ifCntemol  ==  ',')intempl  = ' continue?) 

iffntemol  ==  ’\n')  qoto  endlooD? 
else  ( 

p r i n t f ( " w ronq  arqument  after  \"m\"\n")? 

C ret  r ' e ' ? 


ao  t o t»nr!  1 OOP  ; 
} 


/*  input  snouto  ne  nuiT'hnr,  so  ao  abeaa  */ 
ntennl  = nfencl  » 'O'J 

switchCtltine)  i 
case  1 : 

c n t = 0 ; 

if(nten-.ol  >=  0 ntenpl  <=  9) 

{ntemp2  = ntefTpl;  fltitre  = 2;  continue;} 
else  { 

c r i n t f ( " « ronq  arqunent;  expecting  numberXn"); 
cm  = 'e';  goto  enoloop; 

} 

case  i’. 

c n t + + ; 

it(cnr  > 1 ntemol  1=  ('»'  - '0')  ) { 

end  = ’ e ' ; 

C r i n t f ( " w rong  argument;  very  larqe\n"); 
ao t o end  1 oop ; 

1 

^ if(ntemol  > = 0 XR  ntetrpl  <=  9) 

{ ntemo^  = ntemo2  * 10  + ntempl;  continue;  } 
else  if(ntempl  ==  - '0')  ) 

{ fltime  = 1;  break;  > 

else  { 

p r i n t f ( " w r ong  argument;"); 

printtC"  expecting  number  or  \",\"\n"); 
era  = 'e';  goto  engloop; 

; 

> / * eno  switch  * / 

if(ntemc^  >=  1 ntemr^  <=  97)  ( 

*nar  = ntemr^;  ntemo<?  = 0;  nar-ft; 

) 

else  i 

p r i n t t ( " w rono  argument;  very  larae  or  less  than  l\n"); 
erd  = ' e V;  goto  endloop; 

) 

ne 1 + + ; 

i f ( ne 1 > 11)  { 

orintt("more  than  ll  argumentsNn");  erd  = ’e*; 
goto  endloop; 

) 

) /•  eng  if(ntemrl  1=  • ')  »/ 

1 / • eng  *,  n i I e * / 

>-  1 ntempl  <=  Q71  { 

- nte^c^;  ntemp2  = 0; 


.»  t 

ri»-»*("»rong  aroi.iment;  very  large  or  less  than  l\n\ 
«^<tno  x i t r \ \ " without  a r aumen t \ n " ) ; 
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} 

end  I OOP : 

n^oa i n ♦ f ; 

iffnaaain  < ^ crci  ==  '<»')  { 

printtC"  \n  -Tyre  onp  or  morp  of  the  foIlowinq\ 
numt'ers  io  \"  \"\n  seoarafeci  by  commasNn 

fry  onp  more  fime\n"); 

iffoteTol  1=  ' \r ' ) /*  to  erase  ouffer  */ 

while((ntemr>l  = oetpriarC))  1=  '\n')  ; 

ooro  ana i nr; 

» 

return(crfl)  » 

) /*  eno  oreartn(nar)  */ 


msqer 1 ( ) < 

printfl"  You  oust  tyce  one  of  toe  characters  in  \ 
\"  which  have  been  printed  on  the\n  ter-ninalN 
or  type  \"h\"  to  aet  helo  information\n"); 

} 


//  rhpsis  arcut  daffl  base  ac'D  1 i c a t i on  ISIS 

//  This  prporjT  is  APO-i'FLE  1 1 -f'lOO  I F Y part  oY  ISIS 
//  Inis  file  fias  two  enclosures:  1.  encartm.c  2,  com.c 


extern  crar  aenrelMJI; 
extern  i n t i rJnuw  » 

extern  ct>or  f 1 nafre  (I  3 ) / f I r)e  s I ‘i  1 ) / f Ktti  » f 1 w h r ( 5 1 ) » pa  s s w » 


main!)  < /*  aad-delete-mooifv  */ 

ctiar  i sOor  1 ; 
i nf oh p ( ) ; 

printfl"\n\n  This  part  of  rrooram  does  liDDf  N'OOIFYV 
ana  HELFIt  functionsVn"): 
aaaO  1 : 

printfl”  -Ivre  one  of  the  followinq  in  N"  \"\n\ 
\"1\"  to  Peoin  ACTUAL  usaae\n\ 

to  tieoin  DF.  f*  Ol\iS  T K A T I DM  usaoeXnao  >\n")f 


1 s On  r 1 = 

oreadc  ( ) 

9 

1 f ( i sOor 1 

r z 

‘ 1 ' ) 

{ 

i nares  i 

s i sO 

/ / 

i nvokes 

inqres  database 

named 

ISISO 

> 

i ^ ( i s 0 o r 1 

- - 

V 1 

I 

inures  i 

} 

1 f ( 1 S 0 O r 1 

s i <;  I 

// 

i nvokes 

demons t ra t i on  database 

ISISl 

1 - 

' I ' 

s i s 0 0 r 1 

1=  '<£•  ) 

i p r i n t f ( 

*'\nv: 

r ono 

aro ument 

, trv  aoainXn"); 

qot  0 

a q a 0 1 ; 

t)  r a n c h ( ) ; 

orintf(''ISlS 

a on- 

oelete-mooifv  oroqram  has 

been 

1 oqqed\ 

out  \nUoo'fi-'v  » come  auaioXn"!; 
« 3 exit 
) 
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h ranc  b I.  ) { 

extern 
« 3 Char 

3 s i nt 


/*  t!  ranches 
C r a r t 1 cIt  ; 
* c * * r r ? ; 

n ; 


to  one  o t 


the  main  routines  */ 


n = 0 ; r t = ' e ' ; 

c V 1 1>  r : 

printt("\n  -Tv op  one")J 

printtl"  of  the  ^ol  1c win (3  numbers  in  \"\n"); 
printfl"  \"l\"  to  a new  listing  for  a new\ 

p ron  r amXnX  " " to  ^'flLMFY  an  existina  listina\n\ 

\"5\"  to  OFLETF  all  information  aoout  one  orogramNn" ) ; 
ana i n : 

p r i n t f ( "oo  >\ n " ) ; 
c = areaoc ( ) J 
sw i t c h ( c ) { 

case  ' 1 ' ; 

r t <?  = a.lo  ( ) ; 
break; 
case  ' 2 ' 

t 1 rim  = ' f ' ; 

rti?  = rie1mod(); 
oreak ; 
case  '3': 

f 1 dm  = ' n ' ; 
rt  2 - rtelmodi); 
p r e a k ; 
case  ' h ' ; 

rtc?  = be1pis(); 
b rea  < ; 
default: 

it(n  < 3)  { irsoerlE);  nt  + ; ooto  again;  > 

else  break; 

> /*  end  Switch  */ 

if(rtr*  ==  'f')  rtc  = cylbrc();  f means  finish  * / 

if(rt2  ==  'b'  !!  rt^  ==  'c')  acto  cvibr; 

return; 

> /X  ena  branch();  */ 


; j 

I 1 


i 


i 

! 

1 


arid  ( ) { , 

B3Char*rta;  I 

r t a = • f ■ ; 

print  f("  in  rr  our  ess  ...\n"); 

oetoart)  /*  oe t -na name t e r s ♦/ 

aorfwhl);  /x  arren  i- reco rd f i 1 e and  where  rel.  */ 

rta  = adrir1s();  /»  ado  - t o - r e 1 a t i on  s x/ 
i^Crta  ==  'e')  octo  endado; 
enoaod : 
i 

returnlrta); 

>/*anoadd()x/  g 


qptoari)  ( /*  oet efs  tor  addino  */ 

e » f o rn  ini  i onym ; 

extern  chir  ftnampil^l,  f1cies(Sll»  tlwhrl'ilj#  oassw* 
as  int  tm^x,  i; 

sff  Char  xcht’irp,  ‘tlwtj 
//  initiali-ration  of  variakiles 
ionu'r  = tnax  = O; 

tut  = 'o';  t)narrpll£>l  = 'NO';  fldes[‘501  = 'NO',* 

sa  raroe  of  r is  reccrofile 

»»  retrieve  (frax  = iraxfr.rid)) 

i cimim  = t T a X t 1 ; 

printfl"  Very  important  1 Keep  in  mind\n\ 

Your  r.e'«  recorci  ID  nymper  is  * \d  s\n",  icinym); 

//  erase  flname  ano  floes  to  beqin  clean 

forli  = 0;  i < 1^;  it+)  flnametil  = ' '» 
forCi  = ti;  i < 5D;  itt)  fldeslil  = ' *» 

//  accent  input  from  terminal 

orinttC  -Dive  new  PRODSAM'S  NAME"); 
printtC"  (NOT  more  than  1 c ha  r ac  t e r s ) \n  " ) » 
prinrfl"'io  not  insert  blanks  between  c h a r ac  t e r s\n  " ) ; 
printfl "qo  >\n"); 
i = 0 ; 

whilel  (chtmr  = oetcharf)  ) i=  '\n')  { 

i f ( f I wt  ==  'q  ' ) { 

iflchtmp  1=  ’ ')  { flnamelil  = chtmo;  i+t;l 

i 

i f ( f 1 wt  ==  'o’  XX  i > li?)  { 

printf("lona  aroyment;  t r ync a t ed\ n " ) » 
t I w t = 's'; 

> 

) /*  end  while  ♦/ 
flnairellPI  = '\0'; 
f 1 w t = 'o'; 

print f("  -Dtve  new  PRODRAM'S  DESCRIPTION  (N0T\ 
more  than  50  characters,  in  one  line)Xnao  >\n"); 

1 = 0 ; 

while!  (chtmp  = oetcharC)  ) 1=  '\n')  { 

iflflwt  ==  'q')  fldeslil  = chtmp; 

i ; 

ifCtlwt  ==  'o'  NX  i > 50)  { 

printf("lona  aroyment;  t ru nc a t ed\n " ) ; 
f I w t = 's'; 

> 

) /*  eno  while  */ 

floes  [50 1 = '\0'; 

//  oet  where  rrtes  input  from  terminal 
printfl"  -Tell  ,’iHERt  this  nroqram  can  be  found\n\ 

(NOI  more  than  SO  c h a r ac t e r s \ noo  >\n"); 
f I w t = 'o'; 

1=0; 
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1 e ( ( C h t np 

= de  k c h a r t ) ) 

1 - 

• \n  ' ) { 

1 t ( t 1 W t = = 

•d* 

) t 1 w h r 

1 i 1 

- chknp; 

i k k ; 

1 t 1 t 1 == 

' d • 

i\  S 1 > 

SO  ) 

{ 

r'  r 1 n t t i " 

1 pnp 

a r q u "r  e n 

t ; 

t runcat ed\n"  ) ; tlwt  = 

1 c.  • • 

S f 

> 

J /»  pnn  while  */ 

prinr*("  -Give  one  c''^r,»rrep  \p"); 
orinttl"to  t’e  new  listinn's 
or i nt  f I "ao  >\n"  ) ; 
r<^ssw  = ore  <!ic  I ) ; 

I / » end  oe  t pa  r ( ) * / 


aortwnC)  < /*  ar'r«*ncl-recordfile  ai'oend-whr  rel.  */ 
extern  irit  icinu'^J 

extern  c^ar  tlnan’e(MI»  fldes(G\l,  tlwhrlbllf  passwJ 

»»  int  cnax*  k; 

ffc  char  fna'rell5)»  fces(‘511»  ♦whrlSll,  ossC^i; 

cnax  = icinuT;  osstO)  = passwJ  psslll  = '\0'; 

for(k  = (i;  k < IP;  K *■  ■*■ ) fnametkl  = flnametkl; 

f O r ( k = 0 ; k < 50;  k k h ) < 

tdeslkl  = fldep(k);  ^whrlk)  = tlwhr(ki; 

I 

30  append  rf>corc!file(rid  = cna\»rnafT'e=fnarne#rdes=fdes» 

33  pswrd^rssl 

03  append  whrtrio  = coax,  rdes  = twhr) 

> /*  end  arrtwb  */ 


struct 
a a 


St  r t ao  i 

Char  strelmtlSl; 
> St  r IPS]  ; 


flfl'lrlsl''  < /*  30:1- 1 o- re  1 a 1 1 ons : */  : 

I 

s»’ructsrrtan*r'«;tr; 
extern  c^i^r  cienreMl'l; 

s.'Jinfmnu'r;  ,| 

on  cr<irnncTne(15),  ‘rta^lrl,  *rtgr»  *rtcur;  i 

i n t nil  * ( I f?  I » *rt' » i » j I , * t P ; 

pstr  = \sfr(l/l;mner>e(l<?)  = flfjns  'n'/  ' 

rta^rl  = 'f'; 

//  toijsestarkr,ioain«<(ithou*'ex»tincirrocira'T'» 

//inirialt^ee'rrty  J 

tor(j=0;j<<?S;it<-)< 

fortjl  =li;  j]  < li;  jl  + f)  PStr->strel'T'tjl]  = ' | 

o s t r f f ; 

}/*encil.for»/ 

//  herjjn  disrlav  paintar'le  and  net’  innut 

printtC"  -To  ADD  your  new  listing  in  the  anpropriateX 
cat  eon r i es  » \n " ) ; 

printff"  IvreoneormoreoT  the  ♦ollowinoN 
numbers  in  \"  \"\n  seoaratinq  by  commas\n\ 

You  N'Ubl  tyre  at  least  one\n"); 
nrintfi"  SelecfallthatoertainsJN 

voijwillaetncseconilchance\n")> 

/ / a ) a i so  I ay  ma i nt ab I e i 

range  of  m is  naintable 

tpn urn  = 0 ; ! 

00  retrieve(nname=m.crname){  i 

71  n u n + + / 1 

print  ♦("  iJs\n",  mnum,  mname);  i; 

00  } 

//  bj  qet  input  ^ rom  terminal  and  out  to  array 

rtqr  = a r ea  "in  ( ^bu  t ( 0 1 ) J r 

iMrtqr  ==  'e')  { rtadrl  = 'e';  aoto  endadr;  > | 

aenreMbI  = 'm';  aenrelfll  = *a'f  oenreMc?!  = 'i*» 

qenrellil  = 'n'?  aenrel('4l  = 't'f  aenrel[bl  = *a'; 

nonrellbl  = 'b';  oenrel|71  = 'I';  qenrelt^l  o ' e' t 

ej  enroll '■M  = ' aenrel(t01  = ' nenrellll)  = ' '» 

Purstr(^3tr(Clf^bufl01);  / * out  relations  to  stackr  * / 


whilelHtin  ==  'ri')  { / * means  not  finish  ♦/ 

//  dunwrtl)  /*  lummy-i^pire  * / 

//  fin  a last  element  on  stacx  to  get/  if  eTity  finish 
pstr  = NstrfOl; 
if(nstr->srrelmh)1  ==  ' ') 

{ tlrin  = 'y';  onto  endwhi;  1 /♦  stack  is  emty  */ 

) = i>; 

while(pstr->stre1ml01  1=  ' ')  { 

jtt;  nstr^-t; 

1 f ( j > { 

nrintf("EHRO‘^:artdinq  stacx  overflow"); 


-H  7- 


rrinrff",  in  an  c’S  irens.Nn"); 
ooto 

> /*  end  w^ile  */ 

P s ? r = p s t r - I ; 

//  coov  the  last  stacic  element  to  qenpel  (15) 

for(j  = 0;  j < \ ? i jtt)  oenreMjl  = Dstr->strelm(j); 

//  call  rciiPClM  tn  do  branch 
r t c !J  r = p c ij  r c 1 ( ) ; 

//  nranch  accnroino  to  return  of  pcurcl() 
snitcntrtcur)  I 
case  ' 1 ' ; 

adiicurC);  /*  and  to  current  class  name  */ 
torCj  = o;  j < 12;  )+  + ) pstr->strelrr(j]  = ' *; 

O reak ; 
case  ' 2 ' : 

neworct);  /*  new-branch:  */ 

//  erase  one  element  from  Stack 

tcr(j  = (i;  j < 12;  j**)  rstr->strelmfj)  = ' 
h r e a K J 


ei<ibrc(\buf(0),rstr1;  / * existinq-branch:  */ 
break; 
case  ' n ' : 

erase  one  element  from  stack 

tor(j  = 0 : j < 12;  j+f)  bStr->stre1m(j]  = ' *; 

goto  emwh  i ; 

} /‘  end  siwitch  * / 

enov^n  i : 

iflflfin  ==  'v*l 

orintf("\n  ADd  process  has  been  comoletedXn"); 

) / * end  while  * / 

endadr:  ; 

return^rtaarl  ) ; 

/ * end  add  r 1 s ( ) * / 


dumwrtt)  ( /*  L)UM^’Y  stackr  wite  */ 
shriict  strtao  *05; 

1 n t V » V I / 

/ / DU  t write 
oS  = \strlO); 

forty  - 0;  V < S;  vt+l  1 
p r i n t f t " d " » v ) J 
forty!  = O;  vl  s 12;  vltt) 

p r 1 n t f I " % c " » p 5 - > 3 t r e 1 m ( V I 1 ) ; 
ob  1 1 ; 

I /*  end  dummy  write  end  for  t.  * / 
nrintfi,"  \n")J 
) /»  end  dumwrt()  */ 


MS- 


pu  *•  s t p ( PS  t , PD  f ) /*  put  relation  on  stackr  */ 

//  f^ust  a'ilus*"  Pointers  before  call  putstr 
i n t * P s t » ♦oi'  f » { 

extern  cnar  nenrelllSl/ 
struct  strtan  ‘pstaJ 

«5  cnar  orelll^J#  *flwrt»  ana'reflSl/  *flrun; 
i n t 1 » nnuT' ; 
p s t a = D s t ; 

anane  1 1 1 = ' \ 0 ' ; 
tor ( 1 = O:  1 < 1^;  1 +t) 

qrel[l)  = qenrellllf  arel[121  = '\0'; 

«<?  ranqe  of  a is  orel 
f 1 run  = ' 1 ' ; 
while(*DDf  1=  0)  < 

mnun  = 0 ; 

retrieve  (anane  = -i.cmane)  { 
mnun  t +■ ; 
f 1 w r t = ' n ' ; 
i f ( ^po  f ==  mnun  ) ( 

for(l  = 0;  1 < \2:  lt  + ) ps  t a->  s t re  1 nn  ( 1 1 = anamedl; 

PS t a->s t re  1 n 1 1 21  3 '\0'; 

pstat+;  obft+;  flwrt  = 'v'J 
} / * end  if  * / 

»Jf  > 

if(flwrt  ==  'n') 

if(flrun  ==  '!')  flrun  = '2'; 

else  if(*Dbf  > 0)  { 

or i n t f ( " w ronq  arnunent  %0  d i SC  a r ded\ n " » *pbf); 
f 1 run  = ' 1 ' ; pbf + t ; 

1 / * end  while  */ 

return; 

1 / * eno  putstrC)  */ 


p 


ocurclO  i r r i n t -r  u r r en  f -r  1 ass-sri.T-t' ranc  he  s */ 

e<tprn  char  o»nreMl51; 

»»  crar  <inrellll^I» 

3e  inr  o\  > flwl,  ♦lexJ 

nr<?S  = 'o':  flex  = • n'  ; 

ror(c:l  = u;  at<.  al**)  anrelllnll  = oenreMqlJ; 

anrr*  I I ( f?)  = ' V 0 * ; 


print  f t " \ n C (1 R R t- ''  1 1 

CLASS  NAi-iF 

is  * % S \ n 

II 

r 

qn  r e 1 1 ) » 

tor(al  = ol  < 

f U 1 = ; 

12;  d 1 t 1 1 

r e 1 2 [ o 1 J = ' 

« • 

3 3 

ranqe  of  d is  onrell 

3 a 

retrieve  Crel2  = 

a.crnamel 

where  a. rid  = 

0 

{ 

f 1 w 1 ♦ + ; 
i f ( f 1 w 1 ==  1 ) 

{ 

n r 1 n t f ( " 

and  SUMC  ATEGL'RIES  are: 

\n 

” ) ; 

flex  = ' V ' ; 

> 

i f t f 1 w 1 > 0 ) 

D r i n t f ( " 

'is\n"  , 

re  1 2 ) ; 

1 

orinttt"  -Tvoe  onlv  one  of 

the"  ) ; 

printfl"fol lowina 

characters 

in  \"  \"\n\ 

t o 

ADD\ 

your  listinqXn" 

) ; 

orintfC  \"I\"  into  Cl'RRFNT  CLASS  NAME\n\ 

ria<e  rib’ll  SUPC  A Tt  (’OR  Y and  put  this  into  it\n"); 
it(tlex  'v') 

prtntfC"  N"3N"  use  an  EXISTING  SUHC A Ib GORYNn"  ) ; 
printtl"  \"n\''  None  ct  the  aboveJSTOPX 
tnis  d i rec t i onVnco  >\n"); 
n I if  S = d r eadc  ( ) ; 
return(nl<f5)  ; 

I /*  end  pcurcMI 


addcur()  ( //  and-currentl  ado  to  current  record  nane 
extern  cha*'  oenrelllSlr  f1nanell5l» 
extern  iot  ifinuTi; 
a a r n a r <i  r e I ^ I I 3 I » n a ^ e 3 ( M 1 ; 
int  IvinurKS#  i3; 

cirelSllPI  = '\0';  na^PeSd^l  = 'xO'; 

//  cooy  extern  to  local  names 
tor(i3  = ');  i3  < 12;  i^t  + I 

i nrelitiSl  = oenre)[i3i;  nameSliil  = tlnameli5j;  > 
ilnumS  = ivSnum; 

//  add  record  to  curren*’  name 
3?  append  to  drel3(rid  = idnum5»  crname  = name5) 

return; 

) /*  end  adjcur()  ♦/ 


oo- 


oi^wnrc(>  ( -h  ranc ; adds  record  to  new  OrancH 

eytorn  Char  aenrelllil*  flnaTiellil; 

extPrn  int  lonu"^; 

ss  Char  qr^'illM»ayname(lSl»f^4nar'e(l^),*ayc^’a''»*a‘4w^t; 

aw  int  a-J  , i T‘4nu'n  I 

a r a 'M  1 1 = * \ t)  ' ; a '4  w r t = 'o'; 

//  print  ci.jrrent  class  na'*'#*  aoain 
//  copy  cienrel  to  local  ora^ 

tor(a^  = 0:  a -I  < l«?;  a‘l  + >)  ara‘4layi  = aenrelta^l; 
printtt"  CUK-^tnl  CL'^SS  MAMf  is  » %s  *\n",  oraa)# 
orintti"  Ntt'i  Slll^CATtGOWt  will  be  a branch  of\ 

the  CliK«t.NI  CLASS  UAf-:E\n"); 
orinttf  -Give  SliHCAlEGOHY  NAME\ 

(not  fTiore  than  I?  characters)\n"); 
orintfC"  no  'VO ' insert  bLA\iKS  between  char.sXn"); 
o r 1 n t t ( "no  > \ h " ) ; 
a a a t r : 


// 


net  new  name  from 

t e rm 1 na 1 

for(a'4  = 0;  a*4  < 1? 

; a*4t+) 

aOname  (3*41 

«.  • f 

} 

a *4  = i>; 

whileC  (a^char  = aetchar() 

4 1=  '\n* 

) 

( 

if(a^wrt  ==  'o') 

{ 

if{a‘4char  ]=  ' 

' ) { 

i f ( ( a ‘4  c h a r 

< ' a ' ; 

1 a 4 c h a r 

> 

' z ' ) 

&& 

( a y C h a r 

< ' A ' I 

! aOchar 

> 

'Z'  ) 

( a 4c  n a r 

< 'O'  • 

! a4c  h a r 

> 

1 g 1 ) 

J(!i 

a *4  c h a r 

J 

1=  '♦•  ' ) 

\ 

printt("v3ronn  arouinent;\" 

•<c\"  » t rv 

ana i n\n 

It 

9 

whilel(a‘4char  = qetcharC)  ) 1=  '\n') 

orintff"ao  >\n");  noto  anatr; 

1 

a'4na'T'ela‘41  = a^char;  a^  + t; 


/♦erase*/ 


1 


// 

74 


// 
/ / 
// 
na  t a 
s a 


itCa^wrt  ==  'o'  3*4  > 

o r i n r t ( “ 1 00(3  arounent; 
a *4  w r t 5 's'; 

1 

1 /*  end  while  */ 

alnarnellt?!  = '\0';  a44wrt 
create  new  relation  with 
create  a'^nanetrio  = y P r 


1?)  { 

t runcatecJ\n"  ) ; 


• • . 


I « 


new  branch  name;  a44name 
c r name  = c 1 1?  ) 


relations  must  be  SAvFd  to  prevent  atjtomatic 
loveij  by  In(4>^ES.  Ine  SAvt  command  date  must  be 

to  avoid  inadvertant  loss 


o f 


save  aAname  until 
'///// 


1<37S 


1 


■4 


-g  I - 


/////////////////////// 


//  aiH'snri  record  to  new  relation  a^name 
/''  copy  t'ara'neterc;  local 
1 o^ln(im  = i dn  jm  ; 

for(<)'4  = 0/  a'4  < t(?;  .3^4  + +)  fynan'^'fa^J  = flname[a44); 

f4nd're(l?l  = '\0'; 

sc  aooend  to  a'lname  ( r i 0 = iti^4nijm,  crnane  = f^na'T'e) 
i 

//  also  aoDeno  to  current  class  nane 
«c  aDoeno  to  ara'4(ric  = 0»  crna're  = a'4name) 

t 

return; 

) / * enri  newOrcC)  */ 


e X i b rc ( DO  a 1 r os  a 1 ) 

/*  existina-oranch;  adds  record  to  existing  branch  */ 
i nt  *DDa  I t *Dsa  I ; ( 

extern  char  genre1ll3i; 
struct  strtag  *osa<?; 

cnar  gr1all3)>  ganame[13]; 
i nt  a3f  *oDa(?; 

qrlall<?J  = '\0';  csa<?  = osal?  oba?  = pbal? 

//  nrint  oranches  aoain 

//  cony  qenrel  to  local 

torla3  = 0;  a3  < 12;  a3tt)  qrlala5)  = oenrella3l; 

orintfi."  -Tyne  one  or  more  of  the  following\ 
numbers  in  \"  to  select  subcateqoryNn"); 

sc  range  of  ga  is  aria 
a 3 = 0; 

Sa  re t r i e ve ( qaname  = na.crnare)  where  qa.ria  = 0 { 

a 3 + f ; 

printft"  \"/!;d\"  */.s\n"f  a3»  qaname); 

S3  1 


greadn ( oba  I ) ; 

//  remove  one  top  element  from  stack 

for(a3  = 0;  a5  < 12;  a3*-  + ) Dsa2->strelm{a3J  = ' '; 

//  out  selectea  branch  names  on  to  stack 
//  adjust  genre  I 

for(n3  = 0;  a3  < 12;  a3++)  aenrel(a31  = qrlalaS); 


//  nut  relations  to  stacK»  nass  stac<  and  huf.  noin, 
pu  t s t r ( cs a^ » nt'^a^  ) ! 
return; 

I /*  end  exiOrcl)  * / 


//  ir^cludps  delTiodC),  oetnum(),  nelete()»  moaifyi) 
-incluile  " enc  ariTi . c " 


/ ^ cc(n  .c  includes;  cyltirc()f  belnisC)/  areadc  ( ) r preadn()» 
ni  s q e r 1 ( ) 

^include  "con.c" 


enc  a . o 


//  Inis  f i 1 f»  is  an  enclosurp  o f i 1 »»  aam.o 
/ File  ad.-n.a  is  tne  I e r e -‘'n'i  i f y part  of  ISIS 


■i  e I n o 1 ( ) I 

/*  delete-nodi fv:  ooes  common  actions*  and  branches  */ 
extern  char  fl dm  * 
extern  int  id  nun-; 

<i  3 int  tlid*  '•^id*  timen,  flow; 

9-  char  » r r dm  * * t 1 t i nd * * H qo * r c n ame I 1 3 1 * rc de s I S n ; 
cnar  pswll?l*  DSw<^fi?l; 
t i men  = 0 ; 
bea  dm : 

rtdm  = 'f';  rcnamefl^l  = '\0';  rcdestSO]  = '\0'; 
rt  in  = • f ' ; 

a q a d m : 

printft"  -dive  10  i\U‘'’HFR  ot  vour  record*  which  you\ 
are  qoinq  to"^*  iflfldm  ==  '0')  nrintft"  delete\n"); 

else  nrintfC"  .modifv\n")* 
printf("qo  >\n"); 
tPid  = (i; 

aa  ranpe  of  r is  reccrd^ile 

tlid  = aetnoml);  /*  aet  innut  and  compute  ID  » 
t^io  = 0;  flfind  = 'n'J 

»»  retrieve  (t«?id  = r.ridl  where  r.rid  = tlid  { 

r 

n 4 I 

l^(t^^id  i=  0)  { /»  means  rid  is  correct  */ 

orint^I"  -Give  only  one  character  as  a PASSA0R0\n"j; 

orintll"ao  >\n"); 

DSw  1 I 0 1 = qreadc  ( ) *' 

flow  = (> ; 

4a  retrieve  (osw?  = r.rswrdl  where  r.rid  = tlid  { 
ifCnswllOI  1=  oswiftOI) 

{ f r i :i  t f ( " w rono  casswordJ  exited\n")*  flpw  = I*  I 

S=  I 

it(f)ow  ==  I)  note  encidm; 
os  r^trievelrcna""®  = r.mame*  redns  = r.rdes) 
ss  where  r.rid  =t?id  i 

orint^C"\nin  = record  name  <tescrirtinn\nXd\ 

>.  s Xs\n"*  t'^idt  rename*  redes); 

n r i n t f ( " \ n I s this  th®  listinq  vou  are  seekino  ?\n\ 
-lyoe  \"yes\"  or  \"no\"\nno  >\n"); 
t ) f 1 n d = ' y ' *• 

s 3 ) 

t 


I - 


0 ) * / 


F 

I 


a t i '^<»n  > ? ) { 
p r t n t f ( " i\  ronq  ID  nij'T>t)er  three  timesJX 
pro a ran  exitep\n"); 
rtqn  = 'e'J  poto  enddm; 

) 

ifCflfinci  ==  'n'1  { 

Drintt("rry  one  rore  tifre\nno  >\n")f 
goto  oe<i(ln; 

I 


I / * e n -1  i f ( t ? i d 
t i men  1 1 ; 

»t(flfino  ==  'n' 


//  if  finds  C ones 
f i ndoo  t 

f 1 go  = qreadc ( ) 
1 f ( f lao  ==  'n  • J 
iftflgo  !=  'v') 


1 tlnum  = t2id» 

1 f (f Idm  ==  'O*  ) 

i f ( f I dm  ==  • M ' ) 

enddm : 


ho  re 


onto  enddm; 
{orintfC'Try  one  more 
aoto  findao;  } 


delete!); 
mod i f V ( ) ; 


t i meSngo  >\n" ) ; 


re  t u rn ( r t dm ) ; 

) /*  and  delmodf)  •/ 


get  num ( ) i 

//  read  cnar.s  from  terminal,  computes  one  int.  number 
int  tn,  tl,  t?; 
getdeo; 
t2  = 0; 

while((tn  = qetchar!))  i=  ’\n’)  { 

i f (tn  1=  ' ’ ) < 

tn  = tn  - 'O'; 
if(tn  >-  0 tn  <5  9)  { 

t 1 = t n ; 

t^  = tc^*  10  tti; 

1 

else! 

or i nt f ( "wnona  argument;  try  again\nqo  >\n"); 
while((tn  = oetcharC))  1=  ' \n ' ) //  erase  buffer 
goto  getneg? 

I 

) 

} / * end  while  » / 

re  t u rn ( t ^ ) ; 

) /*  end  getnumC)  ♦/ 


I 

I 

I 

! 

{• 


• 95- 


k . 


■JO  I ) 1 

9<t<»rn  1 n ^ i 'Inijni  J 

o^torn  cr<.ir  jonrelfMl; 

Struct  strtsu  *nr5fi; 

«•»  i r»t  i fl.i  i t , f f f 1 ; 

CD-ir  fln^T'etlil* 

i'Ult  = I Jnu'r;  nsJ  = \str[());  flname(lP)  = '\0'; 

t f i n = ' n ' ; 

//  (i  a late  fro""  recorofile  rplation 
ft!t  r jn>-je  r is  record^ile 
«s  ielote  r whore  r . r t d = idrllt 
//  lelete  fro’^  where  relation 
Its  range  ot  wh  is  wnr 
tta  -ieiefe  where  wh.rid  = idcilt 

//  initialize  star.kr  emty 
for(f  = O;  f < f+»)  i 

for(fl  =0;  fl  < <?S;  fl+  + ) Dsd“>s  t re  I m ( f I ] s ' 

DSdt  + ; 

> /*  end  1.  for  ♦/ 
osd  = ilstr(0j; 

//  load  stdCkr  with  tnaintable  relations 
t>ft  range  of  m is  noa intable 

for(f  s 0 ; f < 1^;  f tt ) flnaneCfl  = ' '» 

ss  retrieve  (flname  = m^cf'namp)  { 

//  copy  relation  to  stack  and  erase  flname 
for(f  = 0;  f < If?;  f + t)  I 

osd->s  t re  1 1)  I f 1 = flnametfi; 

f 1 name  If)  = * ' ; 

1 

osd ♦ f ; 

Its  } 

//  begin  delete  by  using  stack 

or i nt f ( " ie 1 et i on  in  progress  ...\n"); 
while(ffin  ==  'n')  { //  means  stackr  not  finished 

//  dumwrtO;  /»  DUMMY  /IHirF.  */ 

//  find  last  element  on  stack  to  get?  if  empty^  finish 
osd  = 'i-strlOl; 
i f (DSd-'»st  re  1 m to  ) ==*')( 

f f i n = ' y ' ; 
goto  end  1 e ; 

> 

f = o; 

whi)e(osd->strelmI01  1=  ' ')  { 

f ft;  nsd^t; 
i f ( f > i>S)  I 

o r i n t f ( " •!  ARd  I : delete  stack  overflow  process") 
orintfl"  contioueSf  max  ^5  items. \n"); 
osd--;  breax;  1 
) / * end  while 


osd--; 

//  copy  last  stacx  element  to  qenrel  (13) 
for(f  = 0;  f < \ P } ftt)  ( 

qenrel  [fl  = o sd-> s t re  I m f f 1 ; 


/ f cjM  nv  o^ssinii  stack  oointer 

0 m.l  1 t ( n s 1 ) » 
e n 1 1 t? ; 

1 

t /«  .vnil? 

r'r\ntf(''1*»)-»»ton  nss  npAo  coT'Dlete'lXn"); 
) /*  sni  ielotet)  * ^ 


orolltCosilt)  /'  nror^ss“t»»l#‘te 
i nt  ‘o'i  1 1 t ; ( 

®/tr“rn  cnac 
e'<t"rn  int  i Inum ; 

Struct  strtaj  *csdl; 

«c  int  >mtl»  v1)» 

9 0-  cnar  -lltrelllS),  *fl(jlt»  flfnametlS]? 

//  inrtalize  anl  cnov  cilohal  to  local 

osJl  - os  11  t J i IvJltl  = i<1nu'n» 

gndltCl^l  = '\')*;  = •\()‘;  fldlt  = 'o’; 

f o r ( 3 1 = ii ; J 1 < \p:  -n  ♦ ♦ ) < 

inrJItCill  = T«nr<»l(.il);  3lrr(>l(dl)  = ' *; 

» 

il  rrei  (tPl  = ' \i) ' ; 

99  rang a of  da  is  gnolt 

99  re  r r i e ve  ( 1 1 t re  1 = de.crna"'**)  woere  de.rid  = iddltl  ( 

f ) ll  t = ' y ’ ; 

9 9 > 

//  it  trere  is  recor.-j  witn  -^ieiete  id  9 g^iete  and  return 
i f ( f ) 31 r ==  • y • ) { 

99  delete  d<»  ynore  de.rid  = iddltl 

di  = 1 ; 

99  retrieve  (11  = c oun t ( de . r i d ) ) 

I 

i f ( 1 1 = = ) ) { 

99  destroy  gnd I t 

99  range  of  of  is  ifnane 

99  delete  df  inhere  of.crnafne  = onllt 

> 

i f ( f 1 dl r ==  ' V • I { 

forCdl  = 0;  dl  < l<?;  d|*fj  nsdl”>strelnldlJ  = ' '» 
goto  endoro; 

> 

/ / cooy  stac*  too  to  dfoaoe  to  us**  next  ti^e  and  delete 
for(dl  = 0;  11  < 1 <? ; <11  ft)  { 

dfnatiellll  = osjl->strel-nfdll; 
o3dl->strel'nldl|  = ' 

1 

//  if  there  is  i oranch  relation  out  on  stack 
99  re  t r i ewe  ( d I t I - de,crna‘"e)  lyoere  de.rid  = 0 { 
for(ol  = O;  dl  < la;  lltt) 

osdl->strelo|ll)  = dltrelldli; 


j.  Hi  I 


os  -3  1 ♦ ♦ J 
«»n.3pro : 

> /•  <»r\"3  urolltll  »/ 


> 


0 :1  i t V O ( 

an  cn»r  t1l<?nl'?J»  »fll»  ‘fl?; 
i n t / , » o I ; 

f I l?n I 1 ) = ' \0 • ; 

f 1 I = ' 1 • ; f I i = • <? ' ; 

Drintt("\n  It  is  aHowert  to  no^i^v  on)v\n\ 

oroarj^Ti  DESC'^I^IIONSn  and\n\ 

f'pnara'n  .AiME>V6  infor'nation\n"); 
orintM"  If  you  nont  to  do  other  than  this  use\ 
ntLEIE  to  re'noveXn  the  listing  and\ 
than  use  AOD  to  create  a revised  one.\n"); 

OeqTod : 

ehi ie( f M ==  • I ' 5 : f 1^  ==  V ) ( 

0 r i n t f ( •'  \ n " ) ; 

orintf("“Tvre  one  of  the  followinq  in  \"\n'*); 
i f ( f M ==  • 1 • ) 

nrintfl*'  \"l\"  to  modify  record  DESCWIPTIONVn"); 

1 f ( f 1^  ==  V ) 

crintfl"  V'?\"  to  mollify  record  WHF'^E  informationXn**); 
crintfl”  \"n\"  iVOr  to  do  amythino,  ang  tiFTUHN\nQO  >\n"); 
f I I <?n  ( 0 1 = oreadc  ( ) J 

olcn  = !tfll2n(0l; 

S«»itch(fll2nl0))  i 
case  ' 1 • : 

mdewhlol^n); 

f 11  = ' 5' ; 
oreak  ; 
case  '«?•: 

mdeeh(olPn1  ; 
f 1 ^ = • 5 ' ; 

D reak ; 
case  ' n * : 

QOto  enrtmoi; 

I / * end  switch  ♦ / 

> /*  end  while  ♦/ 
enomod : 


-QH- 


1 /»  end  modify!) 


mTewhlct)  /*  trod  i ♦ V “'^esc  r i p t i on -v^  hp  pe- re  I a t i on  s 
i n t » p t ; i 

extern  int  innum; 
oc  int  t ano'r , ? : 

ee  cnar  odeslSll.  * t c h »' 

toniifr  = innijir;  poesCiOl  = '\0'; 

it(*pt  ==  *1')  < /*  Tieans  modity  description  */ 

so  ranoe  o^  r is  recornfite 

00  re  t r i e ve  ( ode  s = r.ries)  »«rere  r.rid  = tdnum  { 

or  1 nt  f I 'Vresent  orodra-r  descrioticn  is;\n  Xs\n\n"  » ooes  ) » 
o a ) 

> /*  end  it  */ 

if(*pt  s=  ( /*  means  modity  where  */ 

00  ranqe  of  •»t'  is  whr 

ao  ret r i eve (odes  = wh.raes)  where  wh.rid  = tdnum  { 

or  i n t t ( "H  resen  t /diEKt  information  is»\n  %s \n\n  " » ode  s J » 

0 0 ) 

> /*  end  if  »/ 

i f I »Pl  ==  • I • I ! *Dt  ==  ' <?  ' ) < 

printfC"  -Give  new  listinn"); 
i t ( sp t ==  * 1 ’ ) 

printfC"  OF  SC  1 P T I I'ivj  (KUT  more  than  So  ")» 
j f(*ct  -=  ) 

rrintfi"  rtHEh't  information  (NOT  more  than  SO  ")» 
or i nt f ( "charac t ers ) \nqo  >\n"); 
fnr(2  = 0;  7 < so;  odeslzi  = ’ *; 

^ = o; 

whi)e((tch  = qetcharC))  1=  '\n')  { 

roes  l?l  = tch; 
i f (e  > SI  ) ( 

printfl"  Lonn  line;  truncated\n\ 

only  first  SO  characters  have  hwen  accertedNn"); 
pdes(SO)  = 'NO'; 
tj  r e a k ; 

» 

t / • end  while  * / 
if(z  < SI)  pdes(/l  = '\o*; 

) / * end  if  * / 

, f ( »pr  ==  • 1 ' ) < 

a«  replace  r(rdes  = pd<»s)  where  r.rid  = tdnum 

> 

i f (apt  ==  ) ( 

00  replace  wh(rdes  = rdes)  where  wh.rid  = tonum 


) / * end  mdewh ( ) * / 

I 


.qo. 
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